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Woord vooraf 


De educatieve programma's in dit boek zijn van het ‘drill and practice'-type. Dit 
houdt in dat het programma een opgave genereert, waarop de gebruiker het 
antwoord moet intoetsen. Het programma gaat na of het antwoord goed of 
fout is. Bij een foutieve beantwoording verschijnt het juiste antwoord op het 
beeldscherm. 

De basis voor de programma’s was het boek ‘Educatieve programma's in BA- 
SIC’ dat programma’s in een standaard BASIC-formaat bevatte. De program- 
ma's in dit boek zijn helemaal aangepast aan de mogelijkheden die de MSX- 
computers bieden. Een aantal programma's is voorzien van een wedstrijdele- 
ment, waarbij een race wordt gesimuleerd. Hoe sneller de gebruiker het ant- 
woord op de vragen weet des te meer punten er worden verzameld. In een 
ander geval moeten de vragen in een beperkte tijd worden beantwoord. U zult 
begrijpen dat er veelvuldig gebruik is gemaakt van sprites en van de grafische 
mogelijkheden van de MSX-computers. In een enkel geval is gebruik gemaakt 
var, het VPOKE-statement, om de karakters aan de karaktergenerator te ont- 
trekken. In de rest van de programma’s is geen PEEK- of POKE-statement ge- 
bruikt. 


De programmatuur is in drie hoofdgroepen te verdelen: algemene oriëntatie- 
programma’s, rekenkundige programma’s en taalkundige programma’s. Het 
zijn in totaal 27 programma's voor kinderen tussen de vier en veertien jaar. 
Bij de ontwikkeling van de programmatuur is ervan uitgegaan dat de program- 
ma's op een monochroom beeldscherm ook een ‘mooi plaatje’ produceren. Bij 
de taalkundige programma's zijn de opgaven in DATA-regels geplaatst. Dit is 
bewust gedaan, omdat in de praktijk bleek dat de cassetterecorder een onbe- 
trouwbaar opslagmedium is voor het opslaan van databestanden. 


In de korte beschrijvingen bij de programma’s worden in een aantal gevallen 
suggesties gedaan om veranderingen in de programmatuur aan te brengen. 
Bij de ontwikkeling van de programma's is er rekening mee gehouden dat een- 
voudige wijzigingen door de gebruiker zelf kunnen worden aangebracht. Een 
aantal programma's werkt met een automatisch niveau. Dit betekent dat naar- 
mate er meer opgaven goed worden gemaakt het niveau stijgt en daarmee de 
opgaven moeilijker worden. In een aantal gevallen kan het zinvol zijn dit auto- 
matische niveau in een vast niveau te veranderen. Dit betekent dat een variabe- 
le een andere waarde moet krijgen. Er is getracht in de programma's dezelfde 
variabelenaam te gebruiken voor dezelfde functies. 


In de inleiding van het boek wordt op het bovenstaande dieper ingegaan en 
worden mogelijkheden aangegeven hoe u als gebruiker de programma's kunt 
veranderen en verbeteren. In de inleiding wordt uiteengezet volgens welke 
structuur de programma’s zijn opgebouwd. Tevens wordt elke programmalis- 
ting voorafgegaan door een korte beschrijving met eventueel aanwijzingen 


hoe u bijvoorbeeld de interne datafile kunt wijzigen en/of uitbreiden. In een 
aantal gevallen bestaat de interne datafile uit een klein aantal opgaven en is het 
aan u om de file uit te breiden of te veranderen. 

Gezien de strakke modulaire opbouw zijn de programma's ookte gebruiken als 
basis voor door uzelf ontwikkelde programma's. De programma’s zijn geïllus- 
treerd met één of meer RUN-voorbeelden, zodat u alvast een beeld van de wer- 
king van het programma krijgt. 

Voor daarin geïnteresseerden bestaat de mogelijkheid om de programma’s op 
cassette of diskette te bestellen. Voor nadere informatie hierover verwijzen we 
u naar de bestelkaart in dit boek. 
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1. Inleiding 


De programma’s in dit boek zijn zowel voor de beginnende als de gevorderde 
gebruiker bestemd. De gevorderde gebruiker/programmeur kan de program- 
ma's gebruiken als basis voor verdere uitbouw, terwijl de beginnende gebrui- 
ker door het intikken van de programma's inzicht zal krijgen in hun werking. 
Daarnaast worden in deze inleiding een aantal aanwijzingen gegeven hoe een 
aantal functies eenvoudig zijn te veranderen. Op deze manier kan een pro- 
gramma beter aan de gebruiker van het programma worden aangepast. 


De principe-opbouw van elk programma is als volgt: het programma begint 
met een aantal Non-executable statements. Dit zijn statements als CLEAR 
5000, DIM en KEY OFF. Deze statements zijn noodzakelijk voor de werking of 
om storende tekens van het scherm te verwijderen. Het kan zijn dat het aantal 
tekens dat met het CLEAR-statement in het geheugen wordt gereserveerd te 
klein is. U moet dan de waarde achter het CLEAR-statement vergroten. 

Op regel 40 of 50 volgt één van de schaarse GOTO-statements. Dit GOTO-state- 
ment verwijst naar een hoog regelnummer achteraan in het programma. Hier 
begint de stuurmodule. De stuurmodule is de belangrijkste module in het pro- 
gramma; hij houdt namelijk het gehele programma onder controle. Van hieruit 
worden de andere modules aangeroepen. Het zal duidelijk zijn dat hiervoor het 
subroutinemechanisme wordt gebruikt. 

De modules, die u behalve de stuurmodule zeker in de meeste programma’s 
tegen zult komen zijn: 

— Initialiseren 

— Opgave 

— Scherm opbouwen 

— Invoer 

— Resultaat 

Verder treft u in elk programma één of meer hulpmodules aan: 

— Sprites inlezen 

— Intern bestand lezen 

— Goed 

— Fout 

— Eventueel een interne datafile 

Hulpmodules zijn modules, die niet door de stuurmodule worden aangeroe- 
pen. De interne datafile behoort eigenlijk niet tot het programma. Het is een 
bestand dat achter het programma zit vastgeplakt. Daarom kan de gebruiker de 
interne datafile gemakkelijk wijzigen of aanvullen zonder het hele programma 
overhoop te hoeven gooien. 

De hierboven genoemde modules zijn te herkennen aan drie sterren voor en 
drie achter de naam van de module. De interne datafile kan onderverdeeld zijn 
in blokken. Dit is dan te herkennen aan drie ‘@' in plaats van sterren. De modu- 
les worden door een regel met een dubbele punt van elkaar gescheiden om de 
leesbaarheid van het programma te bevorderen, terwijl de modules op deze 


manier duidelijk herkenbaar zijn. Indien een module wordt aangeroepen, is er 
naar gestreefd zoveel mogelijk achter de GOSUB een REM-statement te plaat- 
sen met drie sterren en de naam van de aangeroepen module. De module ‘Ini- 
tialiseren’ wordt vaak als eerste door de stuurmodule aangeroepen, waarbij 
een aantal variabelen op een vaste beginwaarde worden gezet. Indien in het 
programma een interne datafile wordt gebruikt voor de opgaven, wordt vanuit 
de initialisatiemodule de module aangeroepen, die deze interne file uitleest. 
Vanuit de initialisatiemodule wordt ook de module gestart, die de sprites in- 
leest. Bij een aantal programma’s staat achter de variabele een aanduiding van 
de functie. Een aantal variabelen komt in veel programma's voor, waarvan 
sommige interessant zijn om gewijzigd te worden. 

De variabele T2. Deze variabele geeft de maximale bedenktijd voor een vraag 
in seconden. Door de waarde van T2 te wijzigen kunt u de tijdsduur veranderen 
nl.: hoelang een vraag blijft staan voordat de nieuwe komt. Een aantal keren 
geeft de variabele T2 de bedenktijd in seconden niet voor de gehele vraag maar 
voor één karakter. De totale bedenktijd wordt dan afhankelijk van de lengte van 
het in te tikken woord. Is de vraag niet binnen de bedenktijd beantwoord, dan 
wordt deze als fout gerekend. 

De variabele TS geeft de totale spelduur aan, eveneens in seconden. Hiermee 
kunt u in een aantal gevallen de speeltijd limiteren. 

In veel programma’s wordt geluid gebruikt om langs akoestische weg aan te 
geven of een opgaaf goed of fout beantwoord is, of om wat ondersteunende 
geluidseffecten te veroorzaken. Het is denkbaar dat u dit geluid niet wenst. 
Door het veranderen van de waarde van de variabele GD in nul, wordt het ge- 
luid uitgeschakeld. Wijzigt u de waarde van variabele GD in één dan is het ge- 
luid weer aanwezig. Nu het geluid toch ter sprake komt, zijn een drietal string- 
variabelen interessant. In een aantal programma’s komen de variabelen A1$, 
A2$ en M$ voor. De waarde die aan de stringvariabelen wordt toegekend, is in 
alle programma’s gelijk gehouden. Dit bevordert de herkenbaarheid. In deze 
variabelen zijn de gegevens opgeslagen voor het deuntje voor een goed ant- 
woord, voor een foutief antwoord en een melodietje, wanneer men meer dan 
70% van de opgaven goed had. 

In de handleiding voor uw MSX-computer wordt bij het onderwerp ‘Music Ma- 
cro Language!’ uitgelegd hoe u de waarden van R1$, R2$ en M$ kunt wijzigen. 
Verder treft u in de module ‘Initialisatie’ de variabelen G en T aan. Deze variabe- 
len houden het aantal goed beantwoorde vragen bij (G) en het totaal aantal 
opgaven (T). Indien noodzakelijk zullen bij de beschrijving van de program- 
ma's nog andere variabelen worden beschreven. Hierbij valt te denken aan het 
blokkeren van het automatische niveaumechanisme. 

In de module ‘Opgave’ worden de vragen gegenereerd met de bijbehorende 
antwoorden. 

De presentatie van de vraag komt tot stand in de module ‘Scherm opbouwen’. 
In dit boek zijn geen standaardschermen gebruikt zoals in het originele boek, 
maar is er getracht zoveel mogelijk gebruik te maken van de mogelijkheden 
van de MSX-computer. Een goed voorbeeld zijn de programma's Klok, Heli- 
copter en Topografie. De module ‘Invoer’ leest het antwoord van het toetsen- 
bord. Daar in de programma’s óf van de grafische mogelijkheden gebruik 
wordt gemaakt óf van een maximale bedenktijd kunt u zich voorstellen dat het 
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INKEYS-statement veelvuldig wordt gebruikt. 

Wanneer u te kennen geeft dat u het programma wilt beëindigen, wordt de 
module ‘Resultaat’ aangeroepen. De module berekent het percentage goede 
antwoorden en laat tegelijkertijd het totaal aantal opgaven zien en het aantal 
goed beantwoorde opgaven. 

Wordt er in programma’s uitgegaan van opgaven die in de interne datafile 
staan, dan worden deze opgaven uitgelezen door een aparte module. Wanneer 
u de opgaven vanuit een sequentieel bestand wilt lezen, bijvoorbeeld vanaf 
cassette of een sequentieel bestand op diskette dan hoeft u alleen deze module 
te wijzigen. U moet er wel voor zorgen dat de gegevens in dezelfde variabelen 
terechtkomen. Het voordeel is dat niet het hele programma overhoop hoeft. 

Bij de opzet van de programmatuur is uitgegaan van een aantal standaard- 
structuren, waaraan in elk programma is vastgehouden. Deze standaardstruc- 
tuur bestaat uit een stuurmodule die achtereenvolgens de verschillende mo- 
dules aanroept. Elke module voert één of meer functies uit en is te beschouwen 
als een klein programma. Zoals een programma een begin en een einde heeft, 
heeft elke module een begin en een einde. 

Het begin van de module is het eerste uit te voeren BASIC-statement na het 
REM-statement met de naam van de module. Het GOSUB-statement dat de 
module aanroept, verwijst naar de regel waarop het eerst uit te voeren state- 
ment van de module staat. Dit eerste statement in de module is de enige toe- 
gang tot de module. Het einde van de module is de RETURN-opdracht. Deze 
opdracht sluit de module als het ware af. Er komt altijd maar één RETURN- 
opdracht voor in een module en deze staat altijd op het hoogste regelnummer 
binnen de module. Door deze structurering heeft elke module een begin en een 
herkenbaar einde. Het zal duidelijk zijn dat fouten snel kunnen worden gelokali- 
seerd, omdat binnen een subroutine slechts een beperkt aantal variabelen 
wordt gemanipuleerd binnen een beperkt aantal programmaregels. 
FOR...NEXT-lussen geven in BASIC nog al eens aanleiding tot spaghettipro- 
gramma's. In dit soort lussen worden dan onnodige sprongopdrachten gege- 
ven om de lus te verlaten, hetgeen de overzichtelijkheid van de programma- 
tuur niet ten goede komt. 

In dit boek wordt ervan uitgegaan dat FOR...NEXT-lussen slechts één ingang 
en één uitgang hebben. De ingang is bij de FOR-instructie, de uitgang is bij de 
NEXT-instructie. Voordeel: bij consequent gebruik overzichtelijkheid. Nadeel: 
u heeft meestal meer programmaregels nodig. Om één en ander te verduidelij- 
ken volgt hier een voorbeeld. 

Voorbeeld: Matrix A bevat tien getallen. De waarde van variabele K wordt inge- 
voerd via het toetsenbord. De ingevoerde waarde K moet voorkomen in matrix 
A. Indien de waarde K in matrix A voorkomt, vervolgt het programma zijn loop. 
Indien de waarde K niet voorkomt in matrix A, wordt de vraag herhaald. 
Oplossing Ais de oplossing die in dit boek wordt gehanteerd. Oplossing B is de 
spaghettimethode. Rechttoe rechtaan! 
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Oplossing A 

1Ö PRINT "GEEF WAARDE"; 
2 INPUT K 

30 H=} 

49 FOR I=l TO 19 

59 IF K<DA (I) THEN 89 
69 H=I:I=1g 

7Ô NEXT I 

80 IF H=Ó THEN 10 


Oplossing B 

19 PRINT "GEEF WAARDE"; 
20 INPUT K 

39 FOR I=l TO 19 

40 IF K=A(I) THEN 70 
50 NEXT I 

69 GOTO 19 

70 . 

8j . 

WY . 


Het verschil is duidelijk. Oplossing B is twee regels korter. Nadeel: het pro- 
gramma heeft een overbodig GOTO-statement. Een veel groter nadeel is dat 
de FOR.….NEXT-lus twee uitgangen gekregen heeft, omdat door middel van het 
IF. THEN-statement (Oplossing B regel 40) uit de lus wordt gesprongen. 

Bij oplossing A heeft de lus maar één ingang en één uitgang. Deze uitgang is 
het NEXT-statement. De werking van het programma is eenvoudig en de toe- 
gepaste structuur is in elke FOR..NEXT-lus in dit boek terug te vinden. Op regel 
30 van oplossing A wordt variabele H op nul gesteld. Wanneer de variabele nul 
blijft, betekent dit dat de ingevoerde waarde niet in matrix A voorkomt. Is varia- 
bele H ongelijk aan nul, dan komt de waarde voor in matrix A. In dit geval geeft 
de waarde van H de plaats in matrix A aan. In dit programmavoorbeeld wordt 
de lusteller (I) op de maximale waarde gezet. Dit gebeurt nadat eerst de index- 
waarde aan variabele H is toegekend (oplossing A regel 60). Als de index zijn 
maximale waarde heeft bereikt, wordt de lus verlaten. Dit gebeurt bij de enige 
uitgang, het NEXT-statement op regel 80. Regel 90 test dan of variabele H nul 
is. Indien dit laatste het geval is, zal de vraag worden herhaald. Het grote voor- 
deel bij consequent gebruik: uniformiteit van programmatuur, waardoor fou- 
ten snel te lokaliseren en op te lossen zijn. 

In veel programma’s moeten vaak dezelfde functies worden uitgevoerd. Een 
voorbeeld is het inlezen van sprites of het op het grafische scherm plaatsen van 
tekst op de manier zoals dit op het tekstscherm wordt gedaan. In alle program- 
ma's geschiedt dit op dezelfde manier in dezelfde modules. Het voordeel is ook 
hier overzichtelijkheid en snelheid bij het opsporen van fouten. 

Bij de taalkundige programma’s moeten vaak woorden worden ingetoetst. Bij 
de MSX-computers kunnen zowel hoofdletters als kleine letters worden inge- 
toetst. In de programmatuur is een voorziening ingebouwd, die het mogelijk 
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maakt dat zowel hoofdletters als kleine letters worden geaccepteerd. Voor het 
programma maakt het dan niet meer uit of er bijvoorbeeld HUIS of huis staat. 
Normaal gesproken zijn dit voor de computer twee verschillende woorden. 


Belangrijk 

Als u de listings in dit boek bekijkt, ziet u telkens aan het einde van een BASIC- 
regel een schuine streep, gevolgd door een getal. Dit getal is een controlegetal. 
Met deze controlegetallen en het programma in de appendix kunt u controle- 
ren of u een programma goed heeft overgetikt. De schuine streep en het getal 
dient u NIET over te tikken! 
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2. Algemene oriëntatieprogramma'’s 


2.1 Minste meeste 


Dit programma traint de begrippen als minste, meeste, middelste, op één na 
minste en op één na meeste. Op het beeldscherm verschijnt een luchtballon 
met daaronder vijf vakken. In elk vak staat een willekeurig aantal ogen. Hier 
onder staat de opdracht: bijvoorbeeld ‘Wijs aan de: … … ‘Op de puntjes kun- 
nen de begrippen meeste, minste, middelste, op één na meeste en op één na 
minste staan. 

De speler zal het desbetreffende vak op moeten zoeken. Dat houdt in dat hij het 
aantal ogen in alle vakken moet tellen en vergelijken. Denkt hij het goede vak 
gevonden te hebben, dan kan hij met behulp van de cursorcontroltoetsen, de 
pijl het vak aan laten wijzen. Hierna moet hij op de RETURN-toets drukken. Het 
programma controleert de keuze. Bij een goed antwoord stijgt de ballon op en 
gaan de punten lopen. Het programma zal direct een volgende vraag genere- 
ren. Wanneer de vraag op het beeldscherm verschijnt, begint de ballon te zak- 
ken. Het is de bedoeling om de ballon in de lucht te houden en zoveel mogelijk 
punten te verzamelen. Komt de ballon aan de grond dan is de speler al zijn 
punten kwijt. 

De bedenktijd voor elke vraag is gelimiteerd. De bedenktijd in seconden wordt 
ingesteld door middel van de variabele T2. De instelling in het programma is in 
het boek 8 seconden. Dit vindt u in de module ‘Initialiseren’. De maximale 
speeltijd is in de variabele TS ingesteld op 240 seconden. Ook deze instelling 
vindt u in de module ‘Initialiseren’. 

In de module ‘Initialiseren’ komen tevens de variabelen A1$, A2$ en M$ voor. 
Hierin zijn de melodietjes opgeslagen voor Goed, Fout en een melodietje wan- 
neer men meer dan 70% van de opgaven goed had. U kunt door middel van de 
handleiding voor uw MSX-computer vrij eenvoudig deze melodietjes wijzigen. 
In alle programma's waarin melodietjes voor goed en fout worden gebruikt, 
worden dezelfde melodietjes gebruikt. Dit is bewust gedaan om u de gelegen- 
heid te geven de melodietjes aan uw eigen smaak aan te passen. 

Indien u de geluiden helemaal niet op prijs stelt kunt u deze in één keer uitscha- 
kelen. Hiertoe wijzigt u de waarde van variabele GD in de module ‘Initialiseren’ 
in nul. 


Programma 

18 REM #x** MINSTE MEESTE ###* / 228 
24 CLEAR 4000 / zn der 
38 DIM A$(4)sRE(5)sCL18s 3IsE(S sE) / 14837 
40 KEY OFF / 4E 
58 GOTO 2380 / 560 
6 : / 118 
70 REM #x*# INITIALISEREN «+ / 346 
88 COLOR 155454 8 SCREEN 2: 2 Á 1407 


998 OPEN "GRP:" 


140 
110 
1 
130 
140 
158 
160 
170 
188 
190 
200 
210 
220 
230 
240 
258 
z68 
270 
280 
290 
308 
J10 
32 

330 
340 
350 
360 
370 
480 
390 
402 
410 
40 
430 
44 
450 
460 
470 
480 
490 
524 
510 
520 
530 
540 
550 
56 
570 
580 
590 
4600 
610 
6:20 
634 


FOR OUTPUT AS #1 


A$ = "[F-1)J = Stappen spel !* 
XZ = 28 : YZ = 88 : GOSUB 3270 
E$ = CHR$(Z9)+CHRE(ZE) +CHRE (13) 


A1$ = "V15L9S11M55ABE" 
A2$ = "V1S5L9SBM39GFE" 


As(1)=" 


nd ARC" OP 


A$(5)="O O" 7 A$(4)="OOO" 


B$&(1)="de 
B${Z)=" de 
B$(3)=" de 
B$(4)="de 
B$(D)="de 
KEN 4977 


minste" 

uP een na minste" 
middelste" 

ur een na meeste" 
meeste" 


DEF USRI=&H156 :REM kerbrd leeg 


DEF USR2=&HID 
DEF USR3=&H41 


REM geluid leeg 
‘REM zschrm disable 


DEF USR4=8&H44 :REM scherm enable 


DEF FNA(A) = INT(RND(I)%A+41) 

DEF FNZ(Z) = Z MOD 540 

GOSUR 520 REM #&x SPRITES 
RESTORE 2890 

FOR I= 1 TO 18 

FOR J = 1 TO 3 

READ C(IsJ) & C(IsJ)=C(IsJ)+1 
NEXT J 

NEXT I 

A = RND(--TIME) :REM reset rand 
GD = 1 REM Geluid aan 

T2 = 8 REM hedenktiid sec 
G = Q : T = BEREM Saed/faut 

RT = @ ‘REM resultaat 

XB = 174 REM ballan z=caard 
YR = 85 REM kallan v=cuard 
PR = @ REM vorige vraag 

P = 98 

TE = @ REM Punten 

TIME = @ REM klak = @ 

TS = #40 REM sreeltiid 

TS = TS «# 5 

RETURN 


REM #* SPRITES INLEZEN xxx 
RESTORE 2590 

READ SP REM aant zPrites 
FOR J = 1 TO SP 

SD$ = *"" : SC = 8 

FOR T == 1 KO 42 

READ SD : SC = SC + SD 


SD$ = SD$ + CHR$(SD) 

NEXT I 

READ SD REM checksum 
IF SC = SD THEN 440 


SCREEN @ £ COLOR 155454 
PRINT "Data van sprite" 5J5 


minn. in Pie 


NE ENEN Mag, Mi Nen PEN or ME MT TE Ne Di Ne Wi EE re Ne NEN WE U op KE Os A RE A Ee Bi 


Br Be 
7081 
1365 
1699 
1794 
1275 
11468 
1374 
1470 
z269 
1741 
2278 
1451 
677 
1043 
1823 
1834 
1044 
1778 
1428 
825 
1059 
Z84 
kee ed 
1847 


640 
650 
660 
670 
6830 
690 
700 
718 
720 
730 
740 
750 
760 
770 
780 
790 
200 
818 
820 
830 
840 
850 
860 
870 
3830 
890 
9,08 
910 
za 
930 
944 
958 
960 
978 
980 
8 


1002 


PRINT "ziim fautief,." 
STOP 

SPRITES(J) = SD$ 
NEXT J 

RETURN 


REM #xx STIJGEN/DALEN xx 


IF YB < 10 THEN YB=18 : TE=TE+10 
IF YR > 85 THEN YB=85 : TE=@ 
LINE (81s111)-(148:119)s 18:BF 


DRAW "BM9Ds 117" 7 COLOR 1 
TE=TE+H : IF TESA THEN TE=A 
PRINT #19 TE 

PUT SPRITE Zs (XBs YE) s 105 1 
PUT SPRITE 1: {(XBsYB+A)s 15 £ 
RETURN 


REM xx TEKSTRIJ #xx 
FOR J = 1 TO LEN:AS) 


C$=MID$(ASs Js 1) : X4 = JHO-O+XE 
DRAW "BM=X3i sei" 2 PRINT #1sC& 


NEXT J 
RETURN 


REM sex BEELDSCHERM vs 
DUMMY = USR3(0) 

COLOR 155454 : CLS 

LINE (8,0) -(255s109)s5s BF 
LINE (@s110)-(255« 110) s 1 


LINE (@s111)-(255:119)s 10: BF 


LINE (@s 120) (255: 1270)» 1 


LINE (@s121)-(255s 159), 11: BF 


LINE (Qs 160) -(255s 160) 1 1 


LINE (@s161)-(2555189) s 141 RF 


LINE (@s190)-(255s 190) s 1 
CIRCLE (180540); 15:10 
PAINT (180540): 10 


1818 REM #* BERGEN *# 


1020 
1030 
1040 


RESTORE 2960 
FOR I= 1 TÔ 8 
READ AlsB1 


1050 IF I = 1 THEN 1070 


1040 
19708 
1080 
1998 
1100 
1110 
1120 
1130 
1140 
1150 


LINE (AZsBZ)-(A1s BI) s 17 
AdzAl £ BZ=R1 

NEXT I 

PAINT (1:70:80) « 17 
A$="Scare :" COLOR 1 


XZ=178 £ YZ=l1Z £ GOSUR 870 


A$="Wiis aan 

XZ=E8 £ Y2=165 £ GOSUR 820 
FOR I= 1 TO 5 

A=I#45-27 & B=zA+36 


1160 
1170 
11842 
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LINE (As 125) (B, 155) s 44 BF 
NEXT I 
PUT SPRITE Zs(XBsYR)s 10: 1 


EE DA AEN MENE Nin Lr POE NT Ni ENE, Wi, Win Kit Wi in Miis His 


Dn Men Mn. Min ken in. 


and 


NE NE IE Ws DN WN Vr En ie We ie Se 


1190 
1700 
1710 
1220 
12730 
1540 
1250 
1760 
1270 
1780 
12790 
1300 
1310 
1320 
1330 
134 
1350 
13460 
1370 
1380 
1390 
1404 
141 
1470 
1430 
1440 
1450 
1460 
1474 
148 
1490 
1500 
151 
1520 
1530 
1548 
1550 
1560 
1570 
1580 
1594 
14600 
14610 
1670 
1630 
1640 
1650 
1660 
1670 
1480 
1690 
1700 
1712 
1720 
1730 


PUT SPRITE 1:{XBsYR+8)s 147 
DUMMY = USR4(@) 
RETURN 


REM #%% GOED/FOUT 2x 

IF Wed THEN 1470 

Hei &: A$="Goed" 4 D&=At$ 

IF E(RSs1) = Ela) THEN 12780 
Het 8 Af="Faut" zt D$ = AZ& 
Taft) « IF Het THEN Ge=G+ti 
COLOR 1 

LINE (215s111)--(255e119)s 10: BF 
DRAW "BMZ15s 114" £ PRINTH1sG 
LINE (2@s111)-{8As 119): 10: BF 
Xi 8 YVEZIIË f GOSUR E70 
DUMMY=ZUSRZ(A) REM rezet geluid 
IF GD = 1 THEN PLAY D$ 

IF PLAY(O) = =-1 THEN 13464 

FOR I = 1 TO 18 

YB = YR + Hel 

FOR Jet TO 5@ & NEXT J 

GOSUB 710 

NEXT I 

LIME (205111)--(80:119) 1 14: RF 
RETURN 

REM sex OPGAVE Haer 

FOR I = 1 TO 5 :REM 5 getallen 
EtIsi) = FNA(S9) & E(Is@)=El Ts 1) 
IF 1 =°1 THEN 1549 

H = 

EOR J = 4 TO T=1 

IF E(Isi)=E{Js1) THEN Het 5 J=l 
NEXT J 

IF H = 1 THEN 1473 

NEXT 1 

REM #x* SORTEREN #4 

FOR IT = 5 TO £ STEP =1 

FOR J = 1 TO I 

IF E(Isä) & Elda) THEN 1600 
SWAP E(Is2)sE(ls 2) 

NEXT J 

NEXT I 

Q = FNA(S) :REM Gevraagde 

IF G=3 OR PR=Q THEN 1620 

C$ = BE(G) £ PR = 6 

Ll = LEN(C$)#5+85 

RETURN 


REM xx SCHERM OPBOUWEN Hex 
FOR T =d TO 5 

A = I4B-Z7 8 B = A+3b 

LINE (As 125)-(B1155) s 44 RF 
NEXT 1 

LINE (84165) -(255s175)s 144 BF 


NN De Me Kor MIN Pr Se Ne Se Mg Vriens Kan, Al rn SE, EE SL WERDEN EEE SN, EEE BE BRE KG KGA, 


z459 


zá 


zer 
z044 
zAAr 
z520 
1936 
1802 
654 
1710 
147 
Ee) 
za 
z50 
pe on is 
1671 
Z245 
3983 
1913 


1740 
1750 
1760 
1770 
17808 
1798 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
18830 
1898 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2400 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
z140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
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COLOR 1 : X2 = 80 

YZ = 165 £ A$=C$ : GOSUB 820 
FOR J = 1 TO 3 

Y2 = J#8B+122 8 COLOR 15 
EOR I= E TO 3 

E= E(Is1)+1 & X2=I#45-19 
DRAW "BM=X25s=Y25" 

PRINT #1sAB(C(Es JD) 

NEXT 1 

NEXT J 

RETURN 


REM xx ANTWOORD #%% 

GOSUR 1694 :REM #&% SCHERM OPB 
CRE14 # Hz £ DUMMY=USRI (A) 

T5 = TIME+T2#50 

PUT SPRITE 41 {Ps 132) 15s 3 

W= 0 

IF TS-TIME<= 0 THEN 7110 
AS=INKEY$ : IF A$="" THEN A$="@" 
IF A$ = "2“ THEN 2110 

YB = YB + .5 £ GOSUR 710 

RS = INSTR(ES:A$) 

IF RS > Z THEN 2050 

IF RS <> 1 THEN 2000 

IF P=<8 THEN P=188 ELSE P=P-45 
IF RS <> 2 THEN 2220 

IF P>=188 THEN P=8 ELSE P=P+45 
T3 = T5 — TIME 

IF T3>@ AND RS<3 THEN 1909 

IF RS5=@ THEN A$="2" 

PUT SPRITE 3s{(Ps132): 10: 3 

RS = (P+37)/45 :REM antwaard ! 
W= 1 

IF FNZ(TE)<:@A OR TE=@ THEN 2110 
T2= T2= 5 

IF TZ < 1 THEN TZ = 1 

RETURN 


REM #*x RESULTAAT ##x 

RT=@ £ COLOR 1 

IF T=@ AND G=@ THEN 27170 
RT=INT(G#&1A0/T+. 5) 

LINE (@s 141) -(255:s198)s 14: BF 
A$=" Aantal ardaven #" + STR$(T) 
XZ=20 t YZ=167 : GOSUB 820 
A$="Aantal Gaed 8“ + STR$(G) 
X2=20 £ YZ=172 : GOSUR BZ 
Af="Percentage Gaed:" + STR$S(RT) 
X2=20 8 YZ=IEBZ £ GOSUR 820 

IF TS-TIME > @ THEN 2270 

A$ = "Punten :"+STRS(TE) 

XZ = 150 : YZ=182 £ GOSUB 820 
DUMMY=USRZ (A) 

LINE (@s111)-(140:119)s 10: BF 


bin "di Nin dis iWink” bis ite es Minli aen ini hin lan Mie inte in Mie Mie in Nien a Mie Vin Me Dn in Ke Me ee Ree eN 


2533 
38275 
2389 
2877 
2410 
2956 
2874 
2857 
2212 
2223 
230 
19465 
ZI 
Eb 
3478 
2711 
3311 
106 
346 
3540 
275 
JAS 7 
2917 
2897 
„956 
3643 
2979 
3683 
2701 
341 
3455 
3456 
2748 
2267 
3787 
2563 
3A33 
2590 
2178 
246 
25 
JEE 
3234 
344 
437 
3494 
4136 
WC ee 
ASSE 
3546 
3514 
3766 
3618 
3156 
449 1 


z290 
2300 
2318 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
24108 
2420 
2430 
24408 
2450 
z460 
2470 
2480 
2490 
2500 
2510 
25208 
2530 
2540 
2550 
2548 
2570 
2588 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
z660 
2670 
2680 
2690 
2708 
2718 
2720 
2730 
2740 
2750 
z768 
2770 
2788 
2790 
2800 
2810 
2820 
2830 


As="Druk een taets in '" 

Xi=20 8 Y2=112 £ GOSUB 870 

IF PD=Z AND GD=1 THEN PLAY Mé$ 
IF PLAY(@) = —1 THEN 2320 
DUMMY = USR1(G) £ RT = 1Q4 
AS=INKEY$ : IF A$="" THEN 2340 
RETURN 


REM xxx STUURMODULE Heer 
GOSUP 84 REM #&x INIT 
GOSUR 89A :REM «** REELDSCH 
GOSUB 1460 :REM #e OPGAVE 
GOSUR 1878 :REM #x& ANTWOORD 
GOSURB 12740 :REM #ex GOED/FOUT 
IF W <> @ THEN 2400 

GOSUB 2140 :REM #xx RESULTAAT 
COLOR 1554154 £ SCREEN Q 
DUMMY = USRZ(A) £ CLOSE #1 
LOCATE 2 1 

PRINT “Ne een keer ZJ/M-"5 
PRINT * " 2 LOCATE 22:10 
A$ = INPUT®$(1) 

H = INSTR("JiNn"sA$) 

IF H = @ THEN 2470 

IF H < 3 THEN 2380 

END 


REM 99) INTERNE DATAFILE 998 
DATA 3 REM aantal sprites 


REM 299 SPRITE 1 999 

DATA 15531563: 127:127: 255 
DATA 2555255512763: 31, 15 
DATA 7s1s15s8s 224: 248 

DATA 25225452544 255: 255: 255 
DATA 2544252: 2485 274: 1925 128 
DATA 1278: 

DATA 4796 :REM checksum 


REM 999 SPRITE 2 299 

DATA 192:176s142s 731 77: 36 
DATA 361518:18:15s08: A 

DATA As 717171 As 13 

DATA 11351461185 365 Zé 77 
DATA 721240: As As As 224 
DATA 224s 224 

DATA 2220 :REM checkzum 


REM @a® SPRITE 3 DHA 
DATA 1s1s1s15s15 255 

DATA 12971291129: 255s 19 1 
DATA 1s1s1s@:12785 64 
DATA 32s1618s4s 24 255 


NELEMANS NE NE Nr MND Oi Ne Ni OE DW NGE ME We WP MM EEN Kie A Wi WENEN: He Wis Dn Vis At A EE Mi Wi Mit eN is Ni Diks TOGT ei SG: 


4173 
Jen rrd 
3898 
DE er hf 
3645 
3857 
ZARO 
2418 
Z646 
Z8468 
2935 
2987 
A07 
3AA3 
KH hef | 
A4 
KAI 
FRA 
3101 
VNA: 
58354 
3228 
37A5 
AAIZ 
3364 
Br ech 
2603 
2618 
2346 
2638 
2923 
z658 
2386 
3893 
39A5 
3653 
4083 
4091 
3199 
318 
2748 
2976 
br add 
SK (Ah 
3594 
3966 
3803 
3390 
3250 
2838 
30464 
3743 
4034 
377R 
335 
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2840 DATA Zs4s82s14s 32:64 

2850 DATA 17850 

2868 DATA 1467@ :REM checksum 
2870 : 

28380 REM AAD VORMEN AA 

28390 DATA @:0:4:0: 1: 0 REM A/1 
28A DATA 1s@@s1sls1s1 REM 2/3 
2918 DATA 1sZsts1s 3e 1 REM 4/5 
2924 DATA 2s2s2s2s 3e 2 REM 6/7 
2930 DATA Ze Zas 3e 3s 3 REM B/9 
2940 : 

2950 REM DAD BERGEN DOE 

2964 DATA @:109140: 50:80: 100 
297A DATA 160: 20: 700: 95: 720: 55 
2900 DATA 255s109s0: 109 


he Ri Mi Mie in Ln Mn B ln 


Nes PRE Ni, 


Voorbeeld 


0 O0 En) Ek o Q o 
ooo d 0 Q oo 
EES EN EE B 


ijs aan :de op een na minste 
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2.2 Middelste 


Dit programma laat vijf vakken op het beeldscherm zien met daarboven een 
zee met twee zeventiende-eeuwse schepen. De schepen houden een race, wie 
er het eerst over de finishlijn is. Eén schip wordt door de computergestuurd. 
Het onderste schip met de witte zeilen wordt door de speler gestuurd. Het pro- 
gramma genereert opgaven in de vorm van: ‘Tel de … … "Op de plaats van de 
puntjes staan de begrippen eerste, laatste, tweede, op één na laatste en mid- 
delste. Het is de bedoeling dat de speler zo snel mogelijk het antwoord op de 
vraag intoetst. Is de vraag goed beantwoord dan gaat zijn schip sneller varen 
dan dat van de computer. Op deze manier scoort hij ook punten. Heeft hij het 
antwoord fout dan gaat zijn schip langzamer varen en verliest hij punten. Tij- 
dens de bedenktijd loopt het schip van de computer in. Het is dus zaak om zo 
snel mogelijk te antwoorden. Wanneer het schip van de speler voor het andere 
schip ligt, krijgt hij extra punten. 

Het schip dat als eerste de finishlijn passeert, heeft gewonnen. Hierna verschij- 
nen de behaalde resultaten op het beeldscherm. 


In dit programma wordt eveneens de variabele T2 gebruikt voor de instelling 
van de bedenktijd en de variabele TS voor de instelling van de maximale speel- 
tijd. De variabele GD bepaalt of de geluidsstatements worden geactiveerd of 
niet. Indien u het geluid wilt uitschakelen zet u de variabele GD op nul. Wilt u 
het hierna weer inschakelen dan geeft u de variabele de waarde één. 

In de strings A1$, A2$ en M$ zijn de melodietjes opgeslagen. Ik raad u aan deze 
eens te wijzigen. 


Programma 

18 REM «xx MIDDELSTE / ze 
24 CLEAR 4000 # ef dee 
3@ DIM A$(4)sBE(5)sC(1As 3IsE(S5) / 1393 
40 KEY OFF / 497 
5@ GOTO 2520 / 554 
6D : / 118 
78 REM xx INITIALISEREN #4## / 346 
88 COLOR 15555 : SCREEN 252 / 1356 
98 OPEN "GRP:" FOR OUTPUT AS #1 / 1745 
108 A$ = "[F-1J = Stappen spel '* / 2081 
118 XZ = 2@ : YZ = 88 £ GOSUR 940 / 1370 
120 E$ = "@123456789" / 879 
138 A1$ = "V15L9S511M55ABE" / 1794 
148 AZ$ = "V15L9SBM39GFE" / 1275 
158 M$ = "T145V15L9S1 1M5SFGAHAHGGFR" / 1950 
168 M$ = M$ + "+FGAHA+GGFRG" / 1347 
178 A$(1)=" vt As GD 7 / 11838 
188 A$(3)="O O" z A$(4)="OOO" / 1390 
198 B$(1)="de eerste" / 1437 
208 BE(H)="de tweede" / 1433 
z18 RE(I)="de middelste" / 1761 
220 B$(4)="de ap een na laatste" / z445 
238 B$(5)="de laatste" / 1578 


240 
250 
240 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
440 
410 
420 
430 
440 
450 
460 
470 
4850 
490 
500 
510 
52 
530 
54 
550 
560 
570 
580 
590 
600 
610 
6240 
630 
640 
650 
660 
670 
480 
690 
700 
710 
720 
730 
740 
750 
740 
770 
780 


22 


KEY Ayn 

DEF USRI=&H156 :REM kevbrd leeg 
DEF USRZ=&HID :REM Geluid leeg 
DEF USR3=&H41 REM scherm disable 
DEF USR4=&H44 REM scherm enable 
DEF FNA{A) = INT(RND(I)%A+#1) 

DEF FNZ(Z) = Z MOD 500 

GOSUR 5460 REM #4 SPRITES 
RESTORE 3210 

FOR IT = 1 TO 10 

FOR J = 1 TO 3 

READ C(IsJ) 8 C(IsJ)=C(lIsJ)+1 


NEXT J 

NEXT I 

A = RND(-TIME) REM reset rnd 
GD = 1 REM geluid aan 
T2= 5 REM hedenktiid sec 
G = 0 : T = BEREM Gaed/faut 

RT = A REM resultaat 

XR = 230 REM haatt x=caard 
XC = 230 REM haat x=caard 
YR = 93 REM baatt v=-caard 
YC = 60 REM baat? v-caard 
PR = @ REM varige vraag 
FI= 0 REM winnaar 

TE = @ «REM Punten 

TIME = @ REM klak = @ 

T8 = 340 REM zpeeltiid 

TS = TS « 50 

RETURN 


REM «xx SPRITES INLEZEN #&%% 
RESTORE 2730 

READ SP REM aant sprites 
FOR J = 1 TO SP 


READ SD : SC = SC + SD 
SD$ = SD$ + CHR$(SD) 


NEXT I 
READ SD REM checksum 
IF SC = SD THEN 708 


SCREEN @ £ COLOR 155414 
PRINT "Data van spPprite"5sJS 
PRINT "zin fFautierf." 

STOP 

SPRITES(J) = SD% 

NEXT J 

RETURN 


REM zt VAREN we 

IF XB > 230 THEN XP=230 : TE=O 
XC = XC = „6 

IF XB<38 OR XCS30 THEN FI=l 

IF XB < XC THEN TE=TE+.5 


DT EN NE AN itn IE MIE MEET MG Me Wirt Dt A At eN MG it Ns 


in Nien tl ie Mn Wen ein is Pis. B in Win Uien Min Mio. Mae in le Wie Wie. Min in Ma Mi in Mi Mi 


697 
1883 
1843 
1050 
1864 
1790 
1444 

849 
1066 
1804 

969 
1867 

dad 

762 
1163 

639 

648 

841 

695 

794 

805 

471 

779 

7ú1 
zap 

152 

G17 

a89 
1058 
1010 

598 

876 
1312 
1017 
1321 
1224 
1278 
1658 
1587 
1022 
1975 
1609 
1891 
2757 
2420 
1016 
1610 
1103 
1200 

788 
1016 
2245 
1276 
2257 
2104 


LINE (81s111)-(160: 119): 10: BF 
DRAW "BM90:112" £ COLOR 1 
TE=TE+RH & IF TE<A THEN TE=O 
PRINT #1 INT(TE) 

PUT SPRITE 1s{(XBsYB)s1s1 

PUT SPRITE Zs (XB+16:YB)s 15 2 
PUT SPRITE 3s (XBsYB-8)s 154 3 
PUT SPRITE 41 (XP+16:s YR-B)s 155 4 
PUT SPRITE 6s(XCsYC)s 151 

PUT SPRITE 7s(XC+16sYC)s 152 
PUT SPRITE 8: (XCs YC-A) 485 3 

PUT SPRITE 9s(XC+16:1 YC-E) sBs 4 
IF FI = @ THEN 930 

IF XB < XC THEN TE=TE+100 : FI=2 
RETURN 


REM «xx TEKSTRIJ #«x# 

FOR J = 1 TO LEN(AS) 
C$=MIDE(ASs Js 1) 5 XI = IJkO-b+X7 
DRAW "BM=X 325" 5 PRINT #1sC$ 
NEXT J 

RETURN 


REM «xx BEELDSCHERM #xx 
DUMMY = USR3(@) REM scherm uit 
COLOR 15555 £ CLS 
LINE (@,0) (255: 109): 5:BF 
LINE (@,110)-(255s 110): 1 
LINF (@s111)-(255s 119): 10: BF 
LINE (As120)-(255, 120) s 1 
LINE (@s121)-(255,159)s 11: BF 
LINE (A:1460)-(255s 1460): 1 
LINE (Os 161)-(255s 189) s 144 BF 
LINE (@s190)-(255s 190) s 1 
CIRCLE (183:18):17:1A 

PAINT (183,18): 10 

REM ##* BERGEN #« 

RESTORE 3280 :REM bergen 
FOR IT = 1 TO 8 

READ AlsB1 

IF I = 1 THEN 1210 

LINE (AZ2sB2) (Als RI) s 17 

2=Al : B2=B1 

NEXT I 

PAINT (40:20): 127 


A$="Scare £" # COLOR 1 
X2=170 : YE=11Z 8 GOSUB 960 
A$="Tel * 

X2=30 : Y2=165 : GOSURB 960 
FOR 1 = 1 TO 5 

A=l#45-27 6 R=A+36 

LINE (As125)-(Bs 155): 41 RF 
NEXT I 


LINE(@,59)-(255,s108) 4: BF 
LINE(30:59)-(30: 108): 15 


ENE NE VE NINE NEEN NSS Mi EENENTWINTIG WEE NEEINE NE WE WE Mi WS VENEN NE VEE Ni BE 


2260 
z1aA 
Z401 
1814 
Z263 
| 
Z441 
z59g 
2314 
244AR 
CAE 
244 
1744 
Zaar 
141 A 
goa 
1276 
1941 
Zaar 
2741 
1383 
1480 
1048 
1296 
1917 
1950 
2324 
2240 
2488 
2262 
2514 
2294 
2544 
2316 
2239 
2047 
el 
1913 
1843 
3 AT 
2015 
2374 
1854 
1612 
2076 
25sa 
zoa8 
1815 
2583 
1914 
2184 
2605 
1702 
2654 
2528 
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1340 
1350 
1,360 
1570 
1380 
13590 
1400 
1410 
1470 
14530 
14402 
1450 
1460 
1470 
1480 
1490 
1522 
1510 
1570 
1530 
154 
1550 
1564 
1570 
1580 
1598 
1600 
1610 
1620 
1630 
1640 
1650 
1668 
14670 
1680 
1690 
17204 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1798 
1800 
1810 
1870 
1830 
1840 
13858 
1862 
1370 
1880 
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PUT SPRITE 15 (XBsYB)s 1s 1 

PUT SPRITE 2e (XBEt161s YR) se 1s 7 

PUT SPRITE 3s (XBs YB-B)s 155 3 

PUT SPRITE 4» (XB416s YR=-H)s 1554 
PUT SPRITE &s (XC YC)s 1s 1 

PUT SPRITE 7s(XC4+16sYC) stes 

PUT SPRITE &s (XCs YC-8)s 81 3 

PUT SPRITE Ps (XC+165YC-8) 1815 4 
DUMMY = USR4(@) :REM scherm aar 
RETURN 


REM Hex GOED/FOUT Haer 

IF Wz OR FI2A THEN 1465 
RH=1l t Af="Goed” 7 DE=A1l$ 

IF RS = E(G) THEN 1500 

RHe-t 2 A$="Faut" t D& = AZS 
T=T+l : IF RH=el THEN G=G+1 
COLOR 1 

LINE (215s111)-(455,119)s 10: RF 
DRAW "BMZ15s 117" £ PRINT#&1sG 
LINE (205 111)-(80s 119) s 1A: RF 
XD tt YZeliZ & GOSUR 960 
DUMMY=USRE (A) REM rezet geluid 
IF GD = 1 THEN PLAY Dé 

IF PLAY(A) = —-1 THEN 1580 
FOR I = 1 TO 14 

XB = XB + RH&-1 

FOR J=t TÔ 50 : NEXT J 

GOSUB 750 

IF FI > @ THEN I=10 

NEXT 1 

LINE (#@s111)-(8@:119)s 10: BF 
RETURN 


REM #*& OPGAVE #&% 
FOR 1 = 1 TO 5 :REM 5 getallen 


E(I) = FNA(9) 
KEE SL THEN 1770 
H= @ 


FOR J = 1 TO I-1 

IF E(I)=ZE(J) THEN Hel : Jel 
NEXT J 

IF H = 1 THEN 1700 

MEXT 1 

0 = FNA(5) :REM gevraagde 
IF PR=g THEN 1780 

C$ = B&(G) £ PR = Q 

Li = LEN(CS) *4+65 

RETURM 

REM #x*x SCHERM OPBOUWEN Hex 
PUT SPRITE 5: {Ps 137)s0s5 
FOR IT = 1 TO 5 

A = I#45-27 € B = A+36 
LINE (As 125)-(R1 155) 54: BF 


AE NUT B AL ENEN DG BE ENE SE SE ENNE WEN, WE SEE KEE SE AE KE EIN LE Ee EEE Ke WAE 


1890 
19200 
1918 
192 
1930 
1942 
1950 
1960 
1970 
1980 
1990 
zaaa 
2010 
2020 
2030 
2040 
2050 
2040 
2070 
2080 
2090 
2100 
2110 
z120 
2130 
z140 
2158 
2168 
2170 
2188 
2198 
2200 
2210 
2220 
2230 
2240 
2250 
226 
2270 
2284 
2290 
2300 
2318 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
z400 
2410 
Z420 
2430 


NEXT I 

LINE (55,165)-(2551175) 1 145 BF 
GOIEOR 1% Kees 55 

YZ = 165 : A$&=C$ : GOSUB G4A 
FOR J = 1 TO 3 
YE = J&B4I2Z £ 
FOR TT = ft TÔ 3 
E= E(I)+1 : XZ=I45--19 
DRAW "BM=X25s=Y25" 
PRINT H#1sAS(C(Es J)) 
NEXT I 

NEXT J 

RETURN 


REM xx ANTWOORD dex 

GOSUB 18508 :REM #4 SCHERM OPB 
CR=14 5 H=A £ DUMMY=USRI (O0) 

T5 = TIME+T2#50 

W= @ 

IF TS-TIME<=@ OR FI>@ THEN 2230 
AS=INKEY$ : IF A$="" THEN A$="@" 
IF A$ = "7" THEN 2230 

XE XB — „5 5 GOSUB 750 


COLOR 15 


RS = INSTR(E$:A$) -1 
We Tee HIM 
IF T3>A AND RS=-1 THEN 2470 


IF RS=-1 THEN A$="7" 

FW EAI == AL 

PUT SPRITE 5s{(Ps132)s 155 

DRAW "BM=lL15s165" & PRINT #1sA$ 
W e= 1 

IF EFNZ(TE)<>@ OR TE=A THEN 27230 
DE TA a 

iP T2 < 1 THEN TZ = 1 

RETURN 


REM «xe RESULTAAT #4 

RT=@ £ COLOR 1 

IF T=@ AND G=8 THEN 2790 
RT=INT(G#10A/T+. 5) 

LINE (@s161)--(255s 198), 145 BF 

A$=" Aantal argaven &" + STRE(T) 
Xie 6 Yi=zleZ t GOSURB G60 

A$="Aantal Gaued 8" + STR$(G) 
XZ=20 8 YZ=17Z 5 GOSURB 960 

A$="Percentage Gaed:" + STRS(RT) 
X2=20 8 YZ2=182 5: GOSUR 960 

A$ = "Punten :"+STR&(INT(TE)) 
2= 158 : Y2=182 £ GOSUB 960 
IF FI<S>Z THEN 24108 

A$ = "Je hekt Sewannen |" 

XZ = 150 £ YE = 172 8 GOSUB 960 
DUMMY=USRZ (A) 

LINE (@s111)-(1460As 119) s 1049 PF 
A$="Druk een kaets in '* 


bn Me ie ini ii Min Mie vins, ii Man Bin Mi dk. Mi iin Winn Mn. Mo ME nn Pen Hse a An Win Min Win in Mn ie Mie Vie Ine Meen Min Pin Mien Me Me Ue nn Ne in nn MS 


34661 
4197 
4733 
334 
4 A8 
3767 
3296 
4833 
4A13 
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ZB 8 YZ=llZ £ GOSUR 9460 

IF FI=2 AND GD=t THEN PLAY M$ 
IF PLAY(@) = —1 THEN 2442 
DUMMY = USR1(@) : RT = 1AA 
AS=INKEYS : IF A&="" THEN 2480 
RETURN: 


REM #xx STUURMODULE waer 
GOSUR 850 REM xxx INIT 
GOSUR 1930 :REM ### BEELDSCH 
GOSUR 1690 :REM #&* OPGAVE 
GOSUR 2040 :REM #4 ANTWOORD 
GOSUEB 1468 :REM ##* GOED/FOUT 
IF WS:B AND FI=@ THEN 2540 
GOSUB 22460 :REM #** RESULTAAT 
COLOR 155454 : SCREEN @ 

DUMMY = USRE(A) : CLOSE #1 
LOCATE 2:10 

PRINT "Nc een Keer £<J/N:"5 
PRINT * " 8 LOCATE 22:10 
A& = INPUT$(1) 

H = INSTR("JiNn"sA$) 

IF H = @ THEN 7414 

IF H < 3 THEN 2520 

END 


REM Do INTERNE DATAFILE 999 
DATA 5 REM aantal sprites 


REM 999 SPRITE 1 99 
DATA AsAsQs As: As A 

DATA Ass 172s176s63: 31 
DATA 1571 J:s1s0s@ 

DATA @s As As Qs A: A 

DATA Qs8:178: 2555255: 1740 
DATA 255:255 

DATA 1736 «REM checksum 


REM 9) SPRITE 7 aà 

DATA Ass As As As 73 

DATA 7312741277: 1075 127: 255 
DATA 255190: 257: 2748: As A 
DATA @:sA:A;s 0: AQ A 

DATA Ass 0: A: A: A 

DATA Qs 

DATA 1834 :REM checksum 


REM 9Ì SPRITE 3 2à 

DATA 05:00:08: 0: 47 

DATA &ZsbisDAsbZsbEs 6E 

DATA 62:00: 2: A« 40: 40 

DATA 685: 126512761126: 176 
DATA @s255: 255, 255: 255 255 


a ede en di ie Me nde Ti ae en Mi nn Va Me edi Win Pao Mie Me ie dn ir he Me U oden ee te Me Me he Be ne en Me Me ie in ee ie Me RR Td 


Z74A4 
WAS 
3744 
3785 
AAA 
2970 
*558 
27A6& 
3AA8 
3118 
3132 
3132 
3147 
3939 
316% 
3821 
4AA7 
ál 
4588 
394 
3348 
3845 
3488 
35A0 
Z85 
Z746 
275a 
986 
2778 
3065 
2798 
3074 
3550 
88 
3645 
3584 
4O1 7 
3448 
SILt 
2888 
3116 
3698 
4738 
4AAP 
4470 
368A 
de, B Dd 
A4AA 
2978 
3206 
3784 
AA 
821 A4 
44 
4510 


2990 
3400 
3018 
3020 
3030 
3044 
3052 
3A6A 
32470 
3030 
3090 
3108 
3110 
3120 
3132 
3140 
3152 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
330 
3240 
3250 
3260 
3270 
3280 
3290 
3300 


DATA 4555755 

DATA 7903 :REM checksum 
REM &® SPRITE 4 9a 

DATA Q:0:s0:0;62: 627 

DATA 62505674 1275127: 177 
DATA Qs: A: As As A 

DATA Qs, A: As A 

DATA @:0:0: 0: 4: 4 

DATA Q:0 

DATA 629 REM checksum 


REM òò SPRITE 5 A 

DATA 1s1isls1s 15255 

DATA 129,129s1295s255s 1e 1 
DATA tsts1:0s 128: 44 

DATA 3251618s4s 25 255 
DATA 25458: 161 371 64 

DATA 178: 

DATA 167A :REM checkzum 


REM DBÌ VORMEN Aaa 

DATA @:3:0:A: 1« 2 : REM 
DATA 150s1s1s1s1 : REM 
DATA 1sZads1sZad : REM 
DATA Essie ie eZ : REM 
DATA 3sZs 3s 3e de 3 : REM 


REM Da BERGEN Saa 

DATA 0:59:40; 9: 80: 50 
DATA 1450sA,195:451 270: 5 
DATA #55,59,0: 59 


Voorbeeld 


@/1 
2/3 
4/5 
6/7 
8/9 


ie Wie Mi Min en the en Min. Mis Mien Wi An Vis Men Win Bin Pie rh Ae Mie Wan Tin hi Wi Kern Wen he A Ve Ed 


Jae 
3420 
3A4A8 
3296 
3932 
260 
3840 
385 
3860 
3502 
er 
3158 
3384 
40273 
4354 
4893 
4170 
41,34 
3699 
34648 
3248 
3476 
4AA1 
4415 
4079 
4043 
4457 
3318 
3546 
4293 
4454 
4138 
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2.3 Klok 


Het programma ‘Klok’ laat op het beeldscherm een wekker zien met een nor- 
male wijzerplaat. De klok wijst een tijd aan en de computer geeft drie antwoor- 
den, waarvan er één goed is. Het is aan de speler om door middel van het cijfer 
1, 2 of 3 aan te geven welke tijd hij denkt dat het is. Bij een goed antwoord 
springt het mannetje met het ballonnetje op en neer. Bij een foutief antwoord 
schudt hij nee. In dit programma regelt de variabele T2 de bedenktijd in secon- 
den en de variabele TS de maximale speeltijd. Beide variabelen zijn te vinden 
in de module ‘Initialiseren’. 

Het programma werkt met vier niveaus. Na vijf goed beantwoorde opgaven 
krijgt het mannetje er een ballon bij en worden de opgaven moeilijker. Op ni- 
veau één worden de hele uren gevraagd. Op niveau twee komen hier de halve 
uren bij. Op niveau drie kunnen opgaven ontstaan die betrekking hebben op 
uren, halve uren en kwartieren. Op het hoogste niveau hebben de opgaven 
betrekking op alle voorgaande niveaus plus minuten. Bijvoorbeeld wijst de 
klok drie minuten voor half zes aan. 

Worden er meer dan vijf opgaven foutief beantwoord dan zakt het niveau weer. 
Bij het testen van het programma bleek dat sommige kinderen het leuk vonden 
dat het niveau vast kon worden ingesteld. Deze mogelijkheid is in het program- 
ma verwerkt. In de module ‘Initialiseren’ komen de variabelen NI en NS voor. 
De variabele NI geeft het niveau aan. Wanneer het programma op automati- 
sche niveaubepaling staat, moet deze variabele op één staan en de variabele 
NS eveneens op één. Wilt u bijvoorbeeld het niveau op twee fixeren dan geeft u 
de variabele NI de waarde 2 en de variabele NS de waarde nul. Op deze manier 
wordt het niveau-automatisme uitgeschakeld. 

Het programma wordt beëindigd door het verstrijken van de speeltijd of door 
het indrukken van de F1-toets. Ligt het percentage goede antwoorden boven 
de 70% dan zal het mannetje met zijn ballonnetjes omhoog gaan. 

In de strings A1$, A2$ en M$ zijn weer de bekende melodietjes opgeslagen. 


Programma 

18 REM sem KLOK Heek / 28 
zA CLEAR 5004 ‚A 576 
3A DIM HE(IZ)sH(IZ) ss READ) BAD: 2) / 1548 
40 KEY OFF / 49E 
5@ GOTO 3030 / 561 
6D : / 118 
78 REM xx INITIALISEREN #ax # 346 
88 COLOR 15555 : SCREEN Zs 2 / 1356 
FB OPEN "GRP:" FOR OUTPUT AS #1 / 1715 
104 A$ = "[F-1J = Stappen spel 1" / zAe1 
118 XZ = 20 : Y2 = 838 £ GOSUR 940 / 1348 
128 E$ = "0123456789" / 879 
138 A1$ = "V15L9S11M55ABE" pd 1794 
148 AZ$ = "V15L9S5EM39GFE" / 1275 
158 M$ = "T145V15LIS11MSSFGAHAHGGFB" / 1952 
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168 
170 
180 
190 
200 
210 
220 
230 
z40 
250 
z60 
270 
280 
290 
348 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
sAA 
610 
620 
630 
640 
650 
660 
670 
6830 
698 
700 


M$ = M$ + "+FGA+A+GGFRG" 

KEY 1," 2" 

DEF USRI=&H156 :REM kerkrd leeg 
DEF USRZ=&HID REM Geluid leeg 
DEF USR3=&H41 REM schrm disable 
DEF USR4=&H44 :REM scherm enable 
DEF FNA(A) = INT(RND(1)%A+1) 

DEF FNZ(Z) = INT(Z/5) +1 


GOSUR 754 REM «xx SPRITES 
GOSUR 430 REM #4 STUURGEV 
CF = 2755/1908 : CE = 190/255 


CD = (4%ATN(1))/1830 

A = RND(-TIME) REM rezet rad 
D(t)si 8 Di2)e=2 £ DiA)=4 DA) e=b4 
GD = 1 REM Geluid aan 

TZ = 8 REM hedenktiid zec 
G= @ : T = A:REM Gaed/tataal 


RT = @ REM rezultaat 

NI = 1 REM startrniveau 

NS = 1 REM mechanisme aan 
TE = Q REM punten 

TIME = @ REM klak = @ 

TS = 340 REM zpreeltiid 

TS = TS « 5 

RETURN 

REM xx STUURGEGEVENS ##x 


B$(1) = "$& uur" 


RB(1s1) = 9 z: B(1sE) = G 
BE(L) = "half $4" 
B(2s1) = 278 : BlZsZ) = 15 


B$(3) = "kwart vaar $$" 
B(3,1) =*= 180 : B(3s2) = 15 
P$(4) = "kwart aver $$$" 
Bl4s1) = @ : B(4s2) = =15 

A = 98 :£ RESTORE 3310 

FOR I = 1 TO 12 

A=zA-30 : IF A=@ THEN A=360 
READ H$(I) £ HAI) = A 

NEXT I 

A=4 « B=z18 t C=3Z : D=4b 
RESTORE 3310 

FOR 1 = 1 TO 14 

READ A% 

R$ = " minuten" 

IF 1 = 1 THEN B& = " mimuut" 
R$ = B$ + CHR$(95) 
BE(I+A)ZAEHRE" over #5" 
B(I+As1)=90-I%6 tf B(I+AsZ)=-b6 
BE(I+B)=ZAS+EEF" vaar E$" 
B(I+Bs1)=9ArIKG 8 B(I+ARsZ)=b6 
BE(I+C)=ZAEHRE" vaar half $5* 
B(I+Cs1)=270+I#b zt B(I+Cs2)=15 
R$(I+D)=AS+REH" over half $$$" 
B(I+Ds1)=270-I%6 2 B(I+Ds2)=6 
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710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
a9a 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1230 
1040 
1250 
1040 
1270 
1480 
1990 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
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NEXT I 
RETURN 


REM xxx SPRITES INLEZEN #4 
RESTORE 3370 

READ SP REM aant sprites 
FOR J = 1 TO SP 

SD$ = "* £ 5C = B 

FOR I = 1 TO 32 

READ SD : SC = 5C + SD 


SD$ = SDE + CHRÉ(SD) 

NEXT I 

READ SD REM checksum 
IF SC = SD THEN 890 


SCREEN @ : COLOR 151454 
PRINT "Data van spPprite"sJ5 
PRINT "ziin fautief." 

STOP 

SPRITE$S(J) = SD$ 

NEXT J 

RETURN 


REM #ex TEKSTRIJ we 
FOR J = 1 TO LEN(AS) 


CE=MID$(ABs Js 1) 7 X3 = Jk6-btXL 
DRAW "BM=X35 sE" 8 PRINT #11 CH 


NEXT J 
RETURN 


REM sex BEELDSCHERM ##x 


DUMMY = USR3(B) :REM scherm uit 


COLOR 15555 tt CLS 

CIRCLE (65s75)s 73e 1sss CF 
CIRCLE (655 75)s68s 1sss CF 

A = 68 8 COLOR 1 

RESTORE 3254 

FOR I = 12 TO 1 STEP =1 
READ Xs Y 

DRAW "BM=X5s=Y:" £ PRINT#1sI 
NEXT I 

PUT SPRITE 31s(57167)s 151 
PUT SPRITE 15 (100:158)s1s 2 
PUT SPRITE 2: (1005174) s 11 3 
PUT SPRITE 3s (1005158): 9: 4 
PUT SPRITE 4:{(116:130): 10: 5 
PUT SPRITE 3@:s (1175148) s 158 
A$="Scare 8" & COLOR 1 
X2=20 t YZ=180 : GOSUB 940 
A$="Is het :" 


XZ=126 : YZ=30 GOSUB 940 


A$="Halla!" zz XZ = 128 £ YZ=160 


GOSUB 940 

X4=94  Y4=48 t X5=48 :Y5=58 
LINE (65575) -(X4s Y4)s 1 

LINE (65575) -(X5sY5) es 1 
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1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
13590 
1400 
1410 
1420 
1430 
1440 
14508 
1460 
1470 
14808 
14908 
1500 
1510 
1520 
1530 
1540 
1554 
1560 
1578 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
16608 
1670 
1680 
1690 
1700 
1710 
1720 
1734 
1740 
1750 
1760 
1770 
1780 
1790 
1809 


DUMMY = USR4(A) :REM scherm aan 
RETURN 


REM #aex FOUT «er 

6R= 2 8 Y= 158 

FOR I = 1 TO 10 

IF SR=2 THEN SR=6 ELSE SR=Z 

IF SR=Z THEN SP=7 ELSE SP=4 

PUT SPRITE 15 {({10@sY)s 1: SR 

PUT SPRITE 2» (100: Y+16)s 15 3 

PUT SPRITE 3s (100: Y)s9: SP 

PUT SPRITE 5s (106: Y-26)s4#HZs 5 
PUT SPRITE bs (122 Y-36)s 15%H3s 5 
PUT SPRITE 7s(110:Y-38)s 12%H4s 5 
FOR J = 1 TO 5@ : NEXT J 

NEXT I 

RETURN 


REM #ew GOED Hex 

SR = 1 

FOR I = 1 TO 10 

IF SR=1i THEN Y=142 ELSE Y=158 
SR = SR « -1 

PUT SPRITE 15 {108,Y)s 1: 7 

PUT SPRITE Zs(1048sY+16)s 1s 3 

PUT SPRITE 3s{108sY)s914 

PUT SPRITE 41 (116:sY-26)s 10: 5 
PUT SPRITE 5s (1086: Y-26)s 44&HZs 5 
PUT SPRITE 6s (1225 Y-36)s 15%H3s 5 
PUT SPRITE 7s(11@:Y-38)s 12%H4s 5 
PUT SPRITE 38: (112:Y-18): 158 
FOR J = 1 TO 58 : NEXT J 

NEXT I 

RETURN 


REM #xx GOED/FOUT 
IF W=@ THEN 1910 
RH=1 : A$="Gaed" &£ D$=A1$ 


IF RS = @ THEN 16609 
RH=-1 £ A$="Faut" : D$ = A2$ 
T=T+1 £ IF RH=1 THEN G=Gt1 


REM xx* NIVEAU «+ 

TE=TE+RH : IF TE < @ THEN TE=Q 
IF NS = @ THEN 1710 

NI=FNZ(TE) & IF NI>4 THEN NI=4 
HZ=@ : H3=D : H4=D 

IF NI=4 THEN H2=1:H3=1:H4=l 

IF NI=3 THEN HZ=1:H3=1 

IF NI=2 THEN H2=l 

LINE (6@:180)-(102:190):5:BF 
COLOR 1 : IF RH=-1 THEN RH=Z 
DRAW "BM60:188" &£ PRINT#1sTE 
X2=120 £ Y2=168 t GOSUR 940 
DUMMY=USRZ(A) :REM reset geluid 
IF GD = 1 THEN PLAY D$ 


Ds Me Vr Vr NE We Va ir Mi nii Mit MS Wi Nr Die Va Werl Wir Mi MAG Vi Mi MN Nes Mi WM Mit Ms Mi ME MS EE ME Mi EET NEN IG MEINE NE MINE EES: 


7148 
1750 
1338 
1566 
1942 
1984 
z895 
2904 
z814 
2857 
2842 
3058 
3119 
3127 
2530 
1802 
19AA 
1484 
1714 
1725 
z134 
3A9 7 
A07 
2349 
JAA7 
28381 
3089 
3218 
3279 
3287 
3170 
2740 
1972 
za070 
1658 
1886 
2465 
2938 
2598 
3035 
3044 
3272 
3271 
2647 
3417 
2522 
3245 
2962 
2640 
3172 
3270 
3318 
3134 
z676 
z949 
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18108 
1828 
1830 
18408 
1850 
18360 
1870 
1880 
1890 
1920 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
19808 
1990 
2400 
2010 
2020 
2030 
2040 
2050 
zaan 
2070 
Z4830 
2090 
2100 
2118 
2120 
2130 
2140 
2150 
2160 
2170 
2184 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
22788 
2290 
2300 
2318 
2320 
2330 
2340 
2350 
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X2=150 £ YZ=0#30420 £ COLOR 15 
B$ = E$(G) 
H=INSTR(B$; CHR$ (95) ) 

IF H = @ THEN 1880 

L=ELEN(BS) : AS=LEFTS(R$,H-1) 
GOSUB 948 : YZ=Y2+8 : XZ=150 
B$=MIDS(BEsH+1 s 1.) 

AS=BE £ GOSUB 940 

ON RH GOSUB 1450: 1300 

IF PLAY(O) = -1 THEN 1908 
RETURN 


REM #&* OPGAVE ter 

NK = D(NI) :REM tatale keure 
FOR IT = t TO 3 

K = FNA(NK) & Kl = FNA(1Z) 
AS=RE(K) € LL = LEN(AS) 

H = INSTR(ASs "$$") 

MID$(A&, 1sH-1) 


C$ = MID$(ASsH+ZsL-H-l ) 

AS = HE(KI) 

IF Hei THEN A$zAS+RE+CH 
IF Hèl THEN A$=RB$+A5+C$ 
IF I = 1 THEN 2100 

H= 8 

FOR J e= J TO Kd 

IF A$ = EB(J) THEN H = 1 
NEXT J 


IF H = 1 THEN 1960 

ES(I)=ZAS 8 (Isi) «== B(Ks1) 
E(Is&) = RB(KsZ) + H(KI) 

NEXT I 

GQ = FNA(3) :REM arptaveTindex 
RETURN 


REM #&w Xs Y COORDINATEN #x 
X=INT ((BRCOS( (360--A)ECD) ICE) +65 
Y=INT(B&SIN((36B-A) CD) +75) 
RETURN 


REM #%*% SCHERM OPBOUWEN #%% 
LINE (158,40) -(255,135) +51 BF 
LINE (120s140) (1625170) :5;BF 
LINE (218140) -(220: 150) s5s BF 
LINE (65s75)-(X4s Y4)s 5 

LINE: (63575) =-{X3s Y5I9 3 

COLOR 1 

A = E(Q;1) : B=48 & GOSUR 2170 
AN BNR VE my 

A = E(@sZ) t B=3A : GOSUB 2170 
Xe X 1 VI == Y 

FOR I = 1 TO 3 

X2 = 120 : Y2 = I#3G + 20 

B& = STRE(I)+" = "+ES(I) 
H=INSTR(BS$: CHRÉ (95) ) 


ENE Vi WE ME U Mi Me NE NE Wi Na Mi VE 5 Mi ir Anr An. Voet Wi Mn ei Dis Mi Win Mia in ns Mn Ke mt Mi Nr edi Mis ENEN NE Nij PE MN Wij MO Vs Vie IE 


2360 
2370 
2580 
2390 
2400 
2410 
z420 
2430 
244 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
25460 
2570 
25808 
2590 
26008 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
26808 
2690 
2700 
2718 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
z820 
2830 
2840 
28350 
2860 
2370 
2880 
2890 
2900 


IF H = @ THEN 2400 

L=LEN(BS) : AS=LEFT$ (R$; H-- 1) 
GOSUB 9408 : Y2=Y2+8 t XZ=150 
BE=MIDS (AS; H41 11) 

AS=RE £ GOSUR 940 

NEXT TI 

LINE (6575) -(X4s Y4) sd 

LINE (65s75)-(X54 Y5)e 1 

A$ = "Je antwaard" 

XZ=136 t YZ=140 £ GOSUR 940 
RETURN 

REM xx ANTWOORD Kk 

GOSUR 2220 :REM #*# SCHERM OPB 
CR=1 : H=B £ DUMMY=USRI (0) 

T5 = TIME+T2#50 : W = 3 

IF TS-TIME<=@ THEN 2660 

IF TIME MOD 18 <> @ THEN 2574 
IF CR=5 THEN CR=1 ELSE CR=5 
DRAW "BMZ210:s140" £ COLOR CR 
PRINT #45" 2” 

AS=INKEY$ : IF A$="" THEN A$="@" 
IF A$ = "2" THEN 2660 

RS = INSTR("123"sA$) 

T3 = T5 — TIME 

IF T3>@ AND RS=@ THEN 2520 
COLOR 1 £ IF RS=@ THEN A$="2" 
LINE (218:140) (220: 150) :5sRF 
DRAW "BMZ10s140" : PRINT #1sA$ 
W= 1 

RETURN 

REM “xx RESULTAAT #*# 

RT=@ £ COLOR 1 

IF T=@ AND G=@ THEN 2720 
RT=INT(G#108/T+. 5) 

LINE (120:10)-(255: 198): 5:BF 
A$=" Aantal aPpgGaven :" + STR$(T) 
X2=125 8 YZ=40 £ GOSUR 940 
A$="Aantal Saed :" + STR$(G) 
XZ=125 8 YZ=68 £ GOSUR 940 
A$="Percentade Gaed:" + STRE(RT) 
X2=1275 £ YZ=RB £ GOSUR 940 
DUMMY=USR2 (4) 

A$="Druk een toets in t* 
X2=125 8 YVZ=120 : GOSUR 943 
DUMMY = USR1(G) : RT = 100 
SR=.5: X = 100 

IF RT<7@ THEN 2990 

IF GD = 1 THEN PLAY M$ 

FOR Y = 158 TO -36 STRP —1 
XeXtSR 1 IF X>130 THEN SR=-.5 
IF X < 74 THEN SR=,5 

PUT SPRITE 15 (Xs Y)s ts 

PUT SPRITE Zs (XsY+16)s1s 3 


NE LEENE ME EAN NEN NE VETEAM NG ME NE VENEN GV NEA SENS. PNI Di WEE EIGEN E, H EES Fis Ks MISE, 


PUT SPRITE Js (Xs Y)s 914 

PUT SPRITE 4 (X+16sY-26)s 1055 
PUT SPRITE 5s(X45sY-26) s 4&HZs 5 
PUT SPRITE &s (X+223 Y-36) 4 15%H3s 5 
PUT SPRITE 7s(X+10:Y-38) » 1 2Hás 5 
PUT SPRITE 3@:(X+121Y-1A)s 158 

IF Y = @ THEN H4=A &: H3=D 

NEXT Y 

AS=INKEY$ : IF A&="" THEN 2990 
RETURN 


REM err STUURMODULE Hex 
GOSUR 88 REM xxx INIT 
GOSUR 1010 :REM «xe BEELDSCH 
GOSUB 1940 :REM #** OPGAVE 
GOSUBR 2490 :REM #*x* ANTWOORD 
GOSUB 1470 :REM #x GOED/FOUT 
IF W<>Q THEN 3050 

GOSUR 2690 :REM xx RESULTAAT 
COLOR 155454 &£ SCREEN @ 

DUMMY = USR2(8) £ CLOSE #1 
LOCATE 2:10 

PRINT "Naa een keer <J/N2"5 
PRINT * * : LOCATE 22:10 
A$ = INPUT$(1) 

H = INSTR("JiNn"sA$) 

IF H = @ THEN 3120 

IF H < 3 THEN 3030 

END 


REM 299 INTERNE DATAFILE @@2 


REM @ò CIJFERS 93 

DATA 51s13s31s19s 14540 
DATA 94731591025 311 125 
DATA 55s133s 7751762945 104 
DATA 100: 77594470 77419 


REM @ò BENAMING 89 

DATA eenstweesdriesviersviif 
DATA zesszevensachtsnedernstien 
DATA elfstwaalfsdertiensveertien 


REM @à SPRITES aa 


DATA 8 REM aantal sprites 


REM 99 SPRITE 1 9â 

DATA Ass: 1: 4s 7 

DATA 155315314155 7s 3 

DATA 1:0:0:0: 0: 3 

DATA @,128:192s 224: 240: 248 
DATA 2485 240s 2244 197 1280 
DATA OQ 


EN ME TEEN PE NEE ME EEE PUM Mi VAE NOL NE EEE OW VE ETIENNE VEE VEE GE EN Ki LS Mis Wia ii er Pa Oet Se 


Zh 
4571 
4457 
4761 
4749 
4607 
41357 
JRE 
4518 
340 
42448 
3296 
3518 
3618 
3640 
3651 
3655 
3983 
3683 
4331 
4512 
er. | 
5098 
4504 
3878 
4355 
3995 
4007 
3405 
3258 
3268 
3496 
3288 
3516 
4361 
46 
4550 
4459 
334 
3576 
5806 
&A4 1 
&3A7 
3398 
3674 
3413 
4703 
$4 34 
J66b 
471 
GE 
411 
4751 
4761 
307 


3460 
3470 
3480 
3490 
3500 
3518 
3520 
3538 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3618 
3620 
3463 
3640 
3650 
36460 
3670 
3680 
3690 
3700 
37108 
3720 
3730 
3740 
3758 
3760 
3770 
3780 
3790 
3800 
3810 
3870 
3830 
3840 
3850 
38360 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3760 
3970 
3980 
3,90 
4000 


DATA 


2178 «REM checksum 


REM 99 SPRITE 2 9d 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


As15stteiis 11515 
154127: 16:20: 35: 40 
39s16s15s 310: 192 
1925192192192: 192: 249 
35s163:19583, 147: 38 
230: 12 

2517 :REM checksum 


REM 29 SPRITE 3 9à 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


63s127s111s1ii1sdiis111 
11411159679 79e 12 
12:12:60: 40: 257: 240 
192741971974 19741925 1927 
Bs 1992192197197 192 
240: 240 

4350 :REM checksum 


REM 99 SPRITE 4 àà 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


00:00: A: A 
Qs0:15,s15s31s 31 
31s15,15s0s As A 
0:0,A:0:0:0 

1925 19252245224 2240192 
192: 

1593 s:REM checksum 


REM 99 SPRITE 5 &à 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


3s15,5s 11 3e 224 241 
251,255255s 255: 255s 255 
127463: 151 34 Bs 192 

248: 248: 252: 252: 252: 252 
2522522522521 248: 240 
1920 

5765 «REM checksum 


REM 99 SPRITE & 99 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Meis 15s 115 10 
15s1279 129291 249 24 
25s17,8s 3e Bs 192 
192,19: 1925 1974 192, 249 
3219541318350 4e 198 

bs 17 

2343 :REM checksum 


REM 29 SPRITE 7 &à 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


AOsA:A:0: A: A 

Os As Bs Ls 7s 7 
7+15:7:0: 0: Q 
00:00: A: A 
19201541 197s 1971 4 
128: 0 

814 REM checksum 


Be Mi Ke ie Dn Wee ie ie Me Mn ihn Mn hen en ie Ma Mien ie Pie ar Ver ee ide ik ie Nie. Mer Me We Pie Me Te Men Min oe he ie Ue Bee ie ee ee en Mee een ee Te KH Se 


3952 
35:23 
3756 
45.30 
4643 
4524 
4951 
4756 
4114 
4039 
3618 
3845 
4379 
4870 
4807 
5248 
4950 
4256 
4126 
3708 
3936 
4460 
46837 
4540 
4490 
5136 
4250 
&2P2 
3798 
4476 
4977 
5204 
48398 
5212 
pn WP 
4340 
4317 
4888 
4116 
491 A 
5aza 
4830 
5321 
5048 
379 
4336 
3978 
426 
4740 
4759 
481 a 
4 7AU 
LW Hen WG 
4519 
4441 
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401A : 

4020 REM 9à SPRITE 8 9à 

4830 DATA 0:0:0:s A: 1: 1 

4040 DATA ZsZs4545 818 

4050 DATA 146516116145 64s 64 
4060 DATA 1278:1278: 0: A: A: A 
4070 DATA 2:0:0:0: 0: 0 

40830 DATA OA: A 

4090 DATA 478 :REM checksum 


De NG Net ha 
Ji 
Kd 
md 
o 


Voorbeeld 


Is het 


1 =elf uur 
2 = acht uur 


3 = twaalf uur 


Je antwoord — 


Score 


2.4 Plaatsen zoeken 


Het programma ‘Plaatsen zoeken’ laat op de linkerzijde van het beeldscherm 
de blinde kaart van Nederland zien. Rechts op het scherm staan vier vakken 
met de volgende omschrijvingen: Opdracht, Tijd, Resultaat, en Mededeling. 
Nadat het programma gestart is verschijnen drie witte stippen in de kaart van 
Nederland en in het vak Opdracht, de naam van een plaats. Met behulp van de 
cursortoetsen kunt u een kruis over de kaart bewegen. Dit kruis moet de speler 
precies op de stip zetten waarvan hij denkt dat het de bedoelde plaats is. Door 
nu op de spatiebalk te drukken of op de RETURN-toets wordt aan de computer 
opgegeven dat dit de plaats is uit de opdracht. Zodra de RETURN-toets is inge- 
drukt, controleert de computer het antwoord. Bij een goed antwoord verschijnt 
in het vak Mededeling het aantal goed beantwoorde opgaven. Was het ant- 
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woord foutief dan verschijnt in het vak Mededeling bij welke plaats men het 
dichtst was. Bij de plaats, die aangewezen moest worden, verschijnt een pijl. 
Tijdens de bedenktijd loopt de tijd. Dit is te zien in het vak met de omschrijving 
Tijd. Staat dit vak op nul dan is de bedenktijd om en wordt het antwoord fout 
gerekend. 


Achteraan in het programma in de interne datafile komt de module ‘Plaatsen 
Nederland’ voor. Dit aantal plaatsen is beperkt en moet worden uitgebreid. Het 
formaat van de DATA-regel is: plaatsnaam, X-coördinaat, Y-coördinaat. Met 
behulp van het programma ‘Topografie-leer’ kunt u de X- en Y-coördinaat vin- 
den. U moet ervoor zorgen dat de laatste DATA-regel in de module ‘Plaatsen 
Nederland’ eruit ziet als DATA <STOP>,9999,9999. Deze regel mag niet ont- 
breken, anders kan het programma het einde van het interne bestand niet her- 
kennen. 

De boeken uit deze reeks worden ook in België gedistribueerd. Het is vrij ge- 
makkelijk om de kaart van Nederland te vervangen door de kaart van België en 
Luxemburg. Hiertoe verwijdert u de module ‘Nederland’ en de module ‘Plaat- 
sen Nederland’ uit het oorspronkelijk programma. Hiervoor in de plaats komt 
de module ‘België’ en de module ‘België plaatsen’. U moet er alleen voor zor- 
gen dat de eerste DATA-regel uit de module ‘België’ op regel 2860 begint en de 
eerste DATA-regel uit ‘België plaatsen’ op regel 3560. Deze regelnummers 
worden namelijk genoemd in het RESTORE-statement. 


37 


Programma 


18 
20 
3@ 
40 
50 


REM xs PLAATSEN ZOEKEN se 
CLEAR 5000 

DIM A$(200)sA(200: 2): D(Bs 2) s CA) 
KEY OFF 

GOTO 2460 


Hd 

REM xxx INITIALISEREN 
SCREEN 2s 2 

COLOR 155454 : CLS 

OPEN "GRP:*" AS #1 


A$ = "[F-1]J = Stappen * 

XZ = 20 t YZ = 88 : GOSUB 490 
A$ = "Twintig secanden Geduld '* 
XZ = 20 :£ YZ = 128 : GOSUR 499 


GOSUBR 770 :REM «xx SPRITES 
GOSUB 680 zREM «xx PLAATSEN 


DEF FNB(B) = B#198/255 

DEF FNA(A) = INT(RND(I)#%A+1) 
DEF USR1 = &H156 

DEF USRZ = &H9G 

DEF USR3 = &H41 

DEF USR4 = &H44 

KEV. 15°2" 

Al$ = "V1S5L9511M55ARBE" 

A2$ = "V15L9S8M3IGFE" 

M$ = "T145V1S5L9S11MSSFGAHA+GGFR" 
M$ = M$ + "+FGAHAHGGFRBG" 

H$ = STRINGS$(12:CHR$ (32) ) 

T$ = "Je bent in de buurt van * 
X = RND(-TIME) 

GD = 1 REM Geluid aan = | 
TZ = 30 REM hedenkti.id 
G=8 : T=A REM Gaed/ardaven 
RT = @ REM resultaat 

GX = 12 REM carr factar X 
CY = -B REM carr factar Y 
D(@s1)=8 7: D(As2)=0 

D(1is1)=B 8 D(1s2)=-1 

D(2s1i)j=i 8 DAs 2) 1 

D(3sij=t < D(3:2)=0 

D4s 1) =1 : D(4s2)=1 

D(51)=0 : D(5s)el 

D(bsi)==-l € D(6sA)=E1 

D(7si)==-1 : D(7s 2) =D 

D(Bs1i)=-t £ DB ZI E-1 

RETURN 

REM xx TEKSTRIJ #&x 


FOR J = 1 TO LEN(AS) 


5AA C& = MIDK(ASs Jet) 8 XE lkb-btXZ 
518 DRAW "BM=XZise25" 2 PRINT#1:C$ 
520 NEXT J 


DN Ne MM EINE NE in) Pd NO ML js Mi NO Wi Mi A MD Nr MEt EE MM Mr ENG iN is Wet NE it ir Wi Mit GN er Vi iS 


228 
576 
per 
AGZ 
567 
118 
346 
677 
1451 
7 
1590 
1378 
2787 
1441 
62 
702 
1264 
1680 
18:23 
983 
990 
1024 
627 
1404 
1385 
Zas 
1417 
1619 
2634 
1106 
559 
&14 
761 
615 
445 
678 
1827 
1285 
1298 
1764 
1277 
1 AH 
1444 
1:357 
1415 
va 
754 
1474 
ZA19 
2271 
913 


534 
54 
550 
540 
570 
58 
590 
44% 
618 
620 
632 
640 
65A 
66 
670 
4830 
60 
700 
718 
720 
734 
740 
754 
750 
774 
780 
790 
800 
814 
820 
830 
840 
es 
86a 
87 
880 
894 
900 
104 
90 
3 
40 
950 
N60 
970 
980 
edeÂ':) 


1AA0 


RETURN 


REM sx LANDKAART OPBOUWEN xx 
RESTORE 2860 

READ Xs Y 

K = INT(X/1A02) : X = X MOD 1020 
IF K = 9 THEN 620 

XZ=FNBE(X1) 2 X3=FNR(X) 

LINE (X2sY1)-(X3eY)s1 

AL RE VA me Y 

READ Xs Y 

IF X£5>9999 AND Y<-9999 THEN 580 
RETURN 


REM #*x PLAATSEN INLEZEN #&+ 
N = 200 : RESTORE 3560 

FOR JT = 1 TO 208 

READ AS(I)sACTes1)sACIs 7) 

IF A$(I) <> "<STOP>" THEN 730 
N= I-1 : 1 = 200 

NEXT I 

RETURN 

REM #x# SPRITES INLEZEN ##* 
RESTORE 2570 

READ SP REM aant sprites 
FOR J = 1 TO SP 

SD$ = *"" £ SC = B 


FOR I = 1 TO 32 

READ SD : SC = SC + SD 
SD$ = SD$ + CHRE(SD) 

NEXT I 

READ SD REM checksum 
IF SC = SD THEN 910 
SCREEN @ £ COLOR 155444 


PRINT "Datä van serite"5J5 


PRINT "zian fautief." 
STOP 

SPRITE$S(J) = SDt 
NEXT J 

RETURN 


REM xt BEELDSCHERM ##% 


DUMMY=USRE (A) REM scherm uat ' 
CLS REM scherm wissen 
GOSUB 560 REM Hr |L ANDKRT 
LINE(15@:s 10) -(250:40)s 1, B 


LINE(150,50) -(7758,80) « 15 B 


1018 LINE(150,90)-(250: 120), 1,B 
1020 LINE(150:130)-(258:160)s 1, B 
1030 A$ = "Opdracht" s XZ2=155 


1040 YZ = 17 : GOSUR 490 
1950 A$ = "-Tiid=-" s X2=155 
1060 YZ = 57 £ GOSUR 490 
1478 A$ = "-Resultaat-" : X2=155 


NG Nen Nt ME Mt NDE Ms VE MW ie NG MG Mie BEE ij ME MENE DME ME MEE NEE NEE et NES EE MANEN NEET Mi AE VEE ME EE 


YZ = 9E 5 GOSUBR 490 
A$ = "-Mededeling-": X2=155 
Y2 = 132 £ GOSUB 490 


DUMMY=USR4(Q) :REM scherm aan ! 
RETURN 


REM xk GOED Her 

A$="GOED" : XZ=tb7 € Y2=106 

CR = 19 

FOR I = 1 TO 10 

IF CR = 15 THEN CR=1 ELSE CR=15 
COLOR CR £ GOSUR 494 

IF GD = 1 THEN BEEP 

NEXT I 

COLOR 15 £ GOSUB 490 


A$ = "Je hebt"+STR$(G) 

A$ = Ab + " Goed" 

B$ = "& antwaarden" 

IF G < 2 THEN B$=" antwaard" 
A$ = A$ + B& 


GOSUB 1530 :REM ##* LICHTKRANT 
RE TURN 


REM #4 FOUT Huk 

AB="FOUT" 5 Xi=t6Z 8 Vis=105 
PUT SPRITE 5» (X4sY4-8)1 151 3 
CR = @ 

FOR 1 1 TO 10 

IF CR @ THEN CRel ELSE CR=:@ 
COLOR CR £ GOSUB 490 

NEXT I 

COLOR 15 : GOSUR 490 

H = 10000 REM extreme waarde 
FOR 1 = 1 TO 3 

KJ = ACGCTDNe1) + CX 

Y3 = ACCUIDNsZ) + CY 

0 = SOR((KZ- XD MEL (VEV LD AE) 
IF @ > H THEN 1470 

Hz Gt Pe CI) 

NEXT T 

A$ = TE+AB(P) £ GOSUR 1530 
PUT SPRITE 5s(X4s ZAAR): 154 3 
RETURN 


REM xxx LICHTKRANT #%&% 
AS=H$HAEH" , " +HE 

LI=LEN(AS) £ CR = 1 

FOR J = 1 TO 2 

FOR 1 = 1 TO L1i-1@ 

IF CR=1 THEN CR=15 ELSE CR=1 
LINE(151s141) (2495159) s 41 BF 
B& = MID$(A$sIs10) £ COLOR CR 
DRAW "BM1555s145" # PRINT#1sR$ 
IF GD=1 THEN BEEP 

NEXT I 


NE MG NE Nij Ws Ni NEE TN DEN AEN De Nn Ki re it B B EE Me Mn ng, Ba en Er Mee Re Kee ee 


1630 
1640 
1658 
1660 
1672 
1680 
1690 
1700 
1718 
1720 
1730 
1740 
1758 
1760 
1778 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1858 
1860 
18708 
18382 
1890 
1900 
1910 
1920 
1930 
1940 
19502 
1960 
1978 
19808 
1990 
2002 
2010 
2420 
2030 
2040 
„050 
260 
2370 
2080 
2098 
2100 
2110 
2120 
2130 
z140 
2150 
2168 
2170 


NEXT J 
COLOR 15 
RETURN 


REM xxx XY COORDINATEN #% 
TIME = @ : DUMMY = USR1 (0) 
A = STICK(@) 

X1 == XLAD(As 1) 8 YL = YLAD(As EZ) 
IF X1 << 10 THEN X1i=12 

IF X1 > 168 THEN X1=160 

IF Y1 < @ THEN Yi=@ 

IF Y1 > 189 THEN Y1=189 

PUT SPRITE 1s(X1sY1)s15s 2 
W= 1 

B = STRIG(@) 7: A$& = INKEYS 


IF A& = "2" THEN 1860 

IF A& = CHR$(13) THEN B = =t 
W= @ 

T3=T2#50-TIME : T4=INT(T3/5+.5) 


IF Tá4 < @ THEN T4=@ 
LINE(1S1sbE) (249479) 5 44 RF 
DRAW "BM1555654" z PRINT #1sT4 
IF B <> =-1 AND T3 > @ THEN 14690 
RETURN 

REM Haex ANTWOORD #%% 
LINE(151s 21) (2494 39) 149 RF 
LINE(151s61) (2493 79) s 44 BF 
LINE(151s1A1) (2475 119)14s BF 
LINE(151s141) (249159) 4 44 BF 
FOR I= 1 TÔ 3 

X3 = ACC(I)s1) + CX 

VS sm A{CCINERN + CY 

PUT SPRITE 1+#Is (XZ Y3)s 1501 
NEXT I 

2m 155 € Y2 = 25 

A$ = G& : GOSUR 490 

GOSURB 14680 :REM sex X-Y COORD 
IF W e= 1 THEN 2094 

O1 = SOR((X1-PX)AZE(Y1-PY) AE) 
IF @1 £ 3 THEN L=t ELSE L=2 
T=T+1 : G=Gt2-L 

IF Let THEN A$zAlb ELSE A$zAZ$ 
IF GD = 1 THEN PLAY A$%$ 

IF PLAY(M) = —1 THEN 2070 

ON L GOSUBR 1150:1320 

RETURN 

REM #*& OPGAVE zr 

FOR IT = t TO 3 

H = 8 : @ = FNA(N) 


IF 1 = 1 THEN 2#19@ 
FOR J = 1 TO T-1 

IF @ = C{J) THEN H = 1 
NEXT J 


NE NI MENG kN MiG Mi Nij EL NE IE EE TE MANNEN MA EEE is ie Mti Be in Hali MEN Mi Sr ME Mi is ee Mi AIEE NG EE 


2073 
2125 
z130 
1718 
194& 
30.35 
ae 
eh ED 
Z745 
2865 
2669 
2709 
3203 
1957 
3259 
2726 
3057 
1994 
PE jn Ws 
2435 
J2Z 

3377 
3247 
2340 
1928 
2156 
3274 
3292 
3388 
346 
z55a 
2798 
2811 
EL jen 9 
2302 
2695 
z85a 
2591 
z056 
3733 
3337 
2836 
3684 
3144 
3311 
3138 
2570 
2158 
2386 
2748 
2883 
2973 
2895 
SiIZ 
2543 
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2182 
2190 
2200 
z210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2318 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
z410 
Z4Z0 
2430 
2440 
2450 
460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
z570 
2580 
2590 
z400 
zo18 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
z700 
2718 
2720 
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IF H = 1 THEN 2130 

CCI) = @ 

NEXT I 

Q = 1 : G$ = A$(C(O)) 
XAZACC(G)I ss) 7 PX = X4 + CX 
Y4A=ZA(C(@E) 52) 8 PY = Y4 + CY 


RETURN 

8 

REM xxx RESULTAAT #xx 

IF T = A THEN 2290 

RT = INT(G#100/T+.5) 
LINE(150s 1) (2554190) «41 RF 
COLOR 15 


A$ = "Tataal 8" 4STRE(T) 

X2=155 £ Y2=30 : GOSUB 49 

A$ = "Gued s"+STR$(G) 

Yr = 45 zt GOSUB 490 

Ab = "PERC. GOED: "+STRS(RT) 
YZ = 65 £ GOSURB 490 

A$ = "Druk ap F1" 

YZ = 170 : GOSUB 490 


IF GD=1 AND RT275 THEN PLAY M$ 
DUMMY = USR1 (A) 

AS=INKEY$ & IF A$="" THEN 2410 
IF A& <> "2" THEN 2410 

RETURN 


REM xx STUURMODULE Bkr 
GOSUR BW :REM Hex INIT 

GOSUR 960 :REM ##** BEELDSCHRM 
GOSUB 2128 :REM ##&%* OPGAVE 
GOSUB 1890 :REM 3% ANTWOORD 
IF T<122 AND W=B THEN 2480 
GOSUR 22778 :REM ##% RESULTAAT 
END 


REM 25@ INTERNE DATAFILE @@9 
REM 5à SPRITES da 

DATA 3 REM aantal sprites 
REM 92 SPRITE 1 Aa 

DATA @sAsA: A: D:D 

DATA Os 1s1s0:s@A:Q 

DATA Ds0:A:s A: A: A 

DATA 50:04:04: Qs 1 28 

DATA 12850:4:0: 0: Q 

DATA 0:0 

DATA 258 REM checksum 


REM &® SPRITE 7 @à 

DATA @As0:0:0: A: A 

DATA @s 25270: 0s 11 1 

DATA 1s1s1s150s@ 

DATA 128:128:128:, 178: 0: 0 
DATA 6350: 0:s 0: Os A 


nie Ai Mike ade. Mine in ie An ek oe Mee Mie. Ne Me ie ie Ae Mn WM. Mi hen line hi Ne IE Mie B in ten WM Mie Mn Bn Min nn vin Bli Mn Pin Mi Mien Mi Vin, in ke 


3006 
23553 
25392 
30.36 
3514 
3329 
2770 
2308 
25,34 
3114 
3354 
3666 
2785 
3832 
16750 
3673 
344 
3076 
32466 
3457 
4431 
4055 
3285 
3975 
3419 
zeo1A 
zag 
276 
ZAR 
301 3 
3061 
ZAE4 
Z40 
3477 
2735 
254838 
z598 
287 
3054 
2943 
SiS 
3420 
337 
3400 
3517 
3527 
3867 
3091 
2718 
zI4b 
3470 
3587 
344 
3978 
3567 


2730 
2740 
2750 
2768 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2340 
2850 
2860 
2870 
2880 
2890 
z0a 
2910 
z970 
2930 
2940 
2950 
ZI 
z970 
z980 
29 
3OAA 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
31809 
3190 
3200 
3210 

3220 
3230 
3240 
3250 
360 
3270 


DATA 
DATA 


GER] 
833 REM checksum 


REM 99 SPRITE 3 9® 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


istisis1ls15 255 
1295129, 12922554 1e 1 
1s1s1s0s 1278564 
3216483413 74 255 
2448, 1655 32164 
178: (A 

1678 «REM checksum 


REM 2® NEDERLAND aa 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


PAB4s 174265 1131 85e BA 
88:s71593s42s 965 4E 
98s471105s 425 1185 32 
128,18, 147:14711515 15 
173:8: 176: 16: 188: 25 
190: 30: 185545: 184: 40 
171:60s 170: 735184: 75 
184585, 18715 861 175495 
1715 100s 177: 147: 175: 109 
14711115143, 1281157: 134 
15751465148, 155:154: 155 
142751691474 16931491173 
146: 182 zs131s 180: 138: 157 
1785154512775 14911145 157 
11551485110: 147, 187: 137 
10715143,95s1415 991138 
99s135590: 140: 85: 140 
841135, 30s 148: 84: 145 
7511451608: 156155: 151 
474150, 45s 1538 394 144 
46s 147, SA: 145: 60: 146 
bs 14Zs 70: 144s 75: 145 
b3s138sS5Ts 144s 431 1 38 
42133, 431 1308: 545 135 
57s133sbbs136s73s 141 
75,135,651131, 805 125 
64s115s5As 147552 126 
58s124s64s 128: 72 „125 
89: 1259050: 129: 54s 137 
5913150: 129: 9068, 176 
bs 121s54s 120: 077: 125 
66117205651 115:s66: 116 
PAN3s 3Ps Pr A27 1 708 
8: 36s 931 391 9AIBs 26 
198: 20: 100: 27:98: 26 
P11A,15s1273, 105 110: 18 
110s15,91277,105141:8 
1275 7:1275105 91471 7 
1565555146: 10: 1471 7 
9184543110557: 114455 
1155585110: 64s 105: 64 
187:73:183: 78: 183,81 


NM MENE MEN WE MI MENNE NE Mi MMM ET WE Mi Wie Wi. Mi Wis, Ws ig Ni MN NNI, ME MEET WE WE WE EENS NIE MEAN MM Vit Om Oi Di 


3280 
3290 
3500 
33510 
3320 
3350 
3340 
3350 
3560 
3570 
3380 
3390 
3400 
3414 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3502 
3518 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3618 
3620 
3630 
3640 
3650 
3660 
5670 
3680 
3690 
3708 
3710 
3720 
3730 
3740 
3750 
3760 
3778 
3780 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


120,88, 138: 71s 137: 52 
128562: 128554: 132: 50 
170:504: 118: 2249137: 67 
143,63, 1471 50: 1321 50 
91098111587 120,85 
137567:1278:65s 109: 81 
9084, 174,105s115s 1175170 
123411551421 170, 1408« 132 
1403 15741451 1420 131s 148 
133:155,9175595s 161: 0 
160,87: 155:86: 153: 89 
149,87,1471 71: 138: 71 
G143s51s159s 4e 1541 33 
138: 30, 1525175151515 
9155351858: 26: 1468: 37 
170: 30, 1035:4549171: 40 
164560: 167543: 155: 63 
155:60:149160: 143: 51 
9083:B4, 89: 85507: 9D 
95,90:104:85: 110: 87 
119597115585: 9104s 85 
1005971595: 96197: 98 
182594s 97106: 100: 147 
118s105s111s116,185: 115 
911As105: 130: 107: 170: 88 
III, JIJ 


REM 299 PLAATSEN NEDERLAND 9à9 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Leeuwarden: 78: 27 
Texels 50: 34 
Vlielands 58: 23 
Terschellings 65s13 
Ameland: 78: 7 
Schiermannikaags92:6 
"Den Helder "s5@As41 
Amsterdams 56:80 
Afzsluitdi.iksdis 38 
Haar lems46s 77 
Har-lindens 71s 27 
Graninderns 182: 20 
Assens 102: 36 
Zwalles89s 65 
Arnhem: B9: 102 

"Den Haag" s 33: 147 
Ratterdams 36: 115 
"Den Basch"s66: 126 
Eindhavens 70: 1.33 
Utrechts62: 98 
Vliszsingens 15: 138 
Middelbur3s17: 136 
<STOP>s 99 s FIG 


DE B Ni is Wi NE Wit SE Wi Hir War it Mig: Oise Me Nij Vi BEE Ni Ni MEG Mi MENG GTE VG Mtr Me Ne WEE ENE Ns ET Wi ME WI NE WA Ai Ms 


4560 
4567 
4621 
A57 
4651 
4617 
4807 
4758 
ATIE 
4759 
4675 
46801 
47350 
4676 
4760 
47568 
4717 
LO 
4770 
ATA 
4810 
4690 
4870 
4908 
4954 
4312 
3598 
3876 
5187 
4658 
4973 
5419 
4876 
5724 
5167 
5157 
5364 
4954 
5159 
4808 
417 
4933 
5087 
5292 
5235 
5292 
5472 
5446 
5471 
5054 


Datafile voor België 


2850 
z860 
2870 
2880 
za 
2900 
z910 
2920 
2930 
2940 
z950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3480 
3090 
3100 
3112 
3120 
3130 
3140 
3150 
3140 
3170 
31828 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 


REM OA BELGIE DAA 

DATA 9063: 32: 21550: 24167 
DATA 41575545: 75:48: 70 

DATA 574 715575s77:61:88 

DATA 64190:67485: 68: 94 

DATA 71591:78:s109:81: 100 
DATA 23,99497s185195s 110 
DATA 99115595: 120595s 124 
DATA 11275125, 121s111s126:110 
DATA 123511751255 131s 1315136 
DATA 1331335151515, 1641149 
DATA 16841515173: 154:183: 151 
DATA 188:154:s190: 135: 195: 135 
DATA 195:,130:188:128:175: 114 
DATA 188,95:s174:691155:48 
DATA 1635451153475 1514 37 
DATA 138540: 139: 325 134: 35 
DATA 130:25: 125: 50: 119: 29 
DATA 1274255120: 245 114s 29 
DATA 189,28:s110s 25: 103: 27 
DATA 1865:29s 100: 32:85: 44 
DATA 830s40s 71: 37:69:40 

DATA 63: 32569: 73:88: 74 

DATA 110,87s 113,86: 138:30 
DATA 1474955 1545 92: 158: 107 
DATA 170:184s169s101,165s 101 
DATA 145:98:170:98; 176: 114 
DATA 917%,185s 161: 130:167: 140 
DATA 168:151:91385 404: 1:31» 58 
DATA 136564: 130,80: 9133: 51 
DATA 189:55:885s 7459100: 327 
DATA 1815385144543: 1075 47 
DATA 97,50:108;55,;91135s 36 
DATA 1155100: 1A2: 104, 123: 1007 
DATA 187:105:s105,115; 189: 174 
DATA 9146595s145s 100: 149: 103 
DATA 135:,185:142:s 118, 1,38: 120 
DATA 1315112130122: 135: 122 
DATA 136,125s1353: 133591555608 
DATA 133575590695 734 57575 
DATA 9999 9PIF 


REM Ad PLAATSEN BELGIE a 
DATA KnakkesZ1s 36 

DATA Oastendes 17:42 

DATA BrugdesZ1s45 

DATA Gents40: 57 

DATA Antwerpens57s 37 

DATA Brussels 58,47 

DATA Charlerais6@s95 


EN WEENING ME: Mi NES UE Me, Mt ei Vis EA it Ws a ii Mi EE Me DiN AE MENS AE ATEN VMT IEEE EE DN Nin AD TS ES 


228 
4087 
4405 
4077 
4056 
4127 
4157 
4205 
476 
434 
4368 
4388 
4405 
4413 
4291 
4273 
4282 
4206 
4291 
4304 
4269 
4187 
4214 
4350 
4419 
4511 
4454 
4591 
4513 
4hA4 
4475 
A 
4452 
4574 
464 
4679 
4673 
44618 
4667 
4549 
4052 
3318 
3545 
4465 
4694 
4470 
4704 
48577 
464 
„aA 
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3350 DATA Namens 70:91 / G4E4 
3360 DATA Gerks89: 53 / 4336 
3378 DATA Luiks®S1s 79 Ë 4353 
3388 DATA Luxembaurgs 113: 143 / 5117 
3390 DATA ZSTOP-+ 99: FIG / 4654 


Voorbeeld 


2.5 Plaatsen-leer 


Met behulp van dit programma kunt u X- en Y-coördinaten bepalen van plaat- 
sen die u aan het programma ‘plaatsen zoeken’ wilt toevoegen. 

Wanneer u het programma ‘Plaatsen-leer’ vergelijkt met het programma ‘To- 
pografie’ zult u zien dat veel modules hetzelfde zijn; onder andere de interne 
datafile. Het handigste is het om het programma ‘Topografie’ te kopiëren en de 
modules te verwijderen die niet nodig zijn. Hierna voegt u de module X-Y-coör- 
dinaten toe en past u de stuurmodule aan. Het bespaart u op deze manier veel 
intoetswerk. 

Zodra het programma loopt, verschijnt op het beeldscherm de kaart van Ne- 
derland of België al naar gelang de inhoud van de interne datafile. Door middel 
van de cursortoetsen kunt u het kruis over het beeldscherm bewegen. Tegelij- 
kertijd ziet u rechts op het beeldscherm de X-coördinaat en de Y-coördinaat 
van de plaats waar het midden van het kruis zich bevindt. 

U voegt een plaats toe aan het programma ‘Topografie’ door een nieuwe DA- 
TA-regel aan te maken. Deze DATA-regel komt vóór de DATA-regel met 
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<STOP>,9999,9999. De structuur van de DATA-regel is: plaatsnaam, X-coör- 
dinaat, Y-coördinaat. Indien in de plaatsnaam spaties voorkomen moet deze 
tussen aanhalingstekens staan. Vergeet u dit, dan loopt het programma vast. 


Programma 


18 
20 
30 
40 
50 
6 
70 
80 
90 


180 
110 
120 
130 
140 
15@ 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
z90 
300 
310 


REM #4 PLAATSEN LEER #sx 
CLEAR 1000 

KEY OFF 

GOTO 990 

REM #xx INITIALISEREN #&x 
SCREEN 252 

COLOR 155414 : CLS 

OPEN "GRP:" A5 #1 


A$ = "[F-1J = Stappen * 

X2 = 28 8 YZ = 88 : GOSUB 220 
A$ = "Twintig secanden Geduld !* 
X2 = 28 : Y2 = 120 : GOSUBR 220 
GOSUR 410 REM «xx SPRITES 


DEF FNB(B) = B#199/255 
DEF USR3 = &H41 

DEF USR4 = &H44 

KEN sn 

RETURN 


REM #x** TEKSTRIJ xx 

FOR J = 1 TÔ LEN(AS) 

C$ = MID$(A&s Js 1) : X3=Jkb-btXZ 
DRAW "BM=X35s=Yes" 1 PRINT#Is C$ 
NEXT J 

RETURN 


REM #x* LANDKAART OPBOUWEN sex 
RESTORE 1070 

READ XsY 

K = INT(X/1828) : X = X MOD 1020 


320 IF K = 9 THEN 350 


338 


XZ=FNR(X1) 7 X3=FNRB(X) 


340 LINE (X2sY1)-(X3s VO) el 

A Ee Nh ELS MN 

360 READ XsY £ 

370 IF X2>9999 AND Y<-9999 THEN 310 
388 RETURN 

39 : 

400 REM #4 SPRITES INLEZEN #ek 
418 RESTORE 1770 

470 READ SP :REM aant sprites 
43A FOR J = 1 TO SP 

440 SD$ = "" 8 SC = B 

450 FOR 1 = 1 TO 32 

460 READ SD : SC = SC + SD 

470 SD$ = SD% + CHR$(SD) 

480 NEXT 1 


a Me ie ee Ve Ma Ne We Ak. Wi Mi Pr Mt Wie ie ie. ie Ni en Mie Tha eh Men Me in Me Me B Mer ie ien Wen a Win a en vi Nie ie Ai Din ne Men. ien 


490 
500 
518 
520 
530 
540 
550 
560 
5/78 
580 
590 
490 
&18 
620 
630 
640 
650 
668 
678 
680 
690 
700 
718 
720 
730 
740 
750 
760 
770 
780 
790 
828 
818 
828 
830 
840 
850 
8460 
870 
880 
890 
9,00 
910 
920 
930 
940 
950 
260 
970 
980 
90 


READ SD REM checksum 
IF SC = SD THEN 55@ 
SCREEN B : COLOR 155414 
PRINT "Data van sprite"5JS 


PRINT "ziijn fautief." 

STOP 

SPRITES(J) = SD% 

NEXT J 

RETURN 

REM #*% BEELDSCHERM #4 
DUMMY=USR3(0) :REM scherm uit ! 
CLS REM scherm wissen 
GOSUR 290 REM #ex LANDKRT 
X1 = 88 : Yi = 83@ 

A$ = "[F-{] = stapren” 

XZ = 150 : YZ = 18 : GOSUB 220 
A$ = "X-caard :" + STR$E(X1) 

YZ = 48 £ GOSUBR 220 

As = "Y=-caard :" + STR$E(X) 

YZ = 68 :GOSUR 220 
DUMMY=USR4 (0) :REM scherm aan ! 


RETURN 


REM xxx XY COORDINATEN #4 
A = STICK(@) 


IF A=1 THEN Yi=Yi-1 

IF A=Z THEN Xi=Xi+1 : Yi=Vi-1 
IF A=3 THEN X1=X1+1 

IF A=4 THEN Xl=X1+1 7 Yi=Yi+1 
IF A=5 THEN Yi=Y1l+1 

IF A=b& THEN Xli=Xi-l £ Yi=Yi+1 
IF A=7 THEN X1=X1=-1 

IF A=8 THEN Xi=Xi-1 : Yi=Yi-1 
IF X1 < 1@ THEN X1=10 


IF X1 > 208 THEN X1=700 

IF Yi < 4 THEN Y1=0 

IF Yi > 189 THEN Y1=1839 

X3 = X1+12 £ Y3=Y1-8 

PUT SPRITE 3s{(X1sY1-16)5 94E 
PUT SPRITE 1s(X3sY3)s15s 1 
LINE(210s 40) -(250: 50) 5 4s BF 
DRAW "BMZ10:40" : PRINTH#IsX1 
LINE(210:60) -(250:s 70) s 4 RF 
DRAW "BM210:460" 7 PRINTHIs Y1 
Ab=INKEY& 

IF A& <> "2" THEN 740 
RETURN 


REM sxe STUURMODULE tam 
GOSUR 70 sREM Ka INIT 


1808 GOSUR 40A :REM ##* BEELDSCHERM 
1810 GOSUB 748 :REM xxx X-Y COORD 
1828 END 


1830 
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A NET LEIEN NN MENEN NEE WE NE VENI A AE OE Pi EN OE EM EE Si A NNS NM ENSING OG WS NIE IE iN Mi Ok RE A a ie: IE 


925 
1462 
1741 
2607 
2270 

864 
1440 

Is 
1050 

&38 

A66 
1487 

834 
1159 
1293 
z120 
1944 
z194 
1540 
z166 
15842 
1588 
1193 

778 
1006 
LATA 
18302 
2298 
183270 
z318 
1844 
Z347 
1866 
Z366 
1865 
1975 
1789 
2429 
1847 
2438 
Z54b 
Z266 
z434 
z290 
z457 
1522 
1905 
1444 
1078 
1256 
1477 
15,34 
1549 
1233 
1488 


1040 
1850 
10650 
1070 
1080 
1090 
1108 
1110 
1120 
1130 
1140 
1158 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1268 
1270 
1280 
1290 
1308 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1504 
1510 
1524 
1530 
15408 
1550 
1560 
1578 
1580 


REM @29 INTERNE DATAFILE aaa 


REM 99 NEDERLAND aa 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


PAB4s 174 bbs 113: 835 84 
88:71:93s4Zs Vb: 4E 
Gs47«105:431 1181 32 
128,18,147,12,151,15 
173:81176:s16: 180: 25 
190: 30: 185545: 184: 60 
171s60:170: 735: 1845 75 
1844855 187:86: 175495 
171100: 17751071175: 109 
147111151435 1270: 1571134 
157146: 148:155:154: 155 
142,169:1475 1695149: 173 
146s1825131s 180: 138: 157 
178,154s 127114941145 157 
115s148:s 1101147: 1071137 
10751435 95s141s99s 138 
Ps1361s 20: 1405851 140 
844 135,80: 140: 83: 145 
75s145s68s1545551 151 
47s,1505435 153: 394144 
46s142:50:145: 601146 
b4s 147470: 144: 754145 
63,138:59s144s 431 138 
4Zs133s481 130: 521 135 
57s1331s66s136s 73s 141 
75s135565s 131580: 175 
64,1155,50s 1271571126 
58s 1245645128: 725 1275 
80:125,9850s 129: 541 132 
59s131:s50;s 12959048: 126 
62s121554s 120: 9072: 125 
66s1270:65s115:sbb: 116 
PAPS s ZP DAs 53973 20 

As 36 3s 31 NOPE s 76 
106: 20: 1008: 27:98: 26 
91105155173: 10s 110: 18 
110,15,9127:510: 141,8 
127s7:127s 10291471 7 
156s5:146,101 1475 7 
P1D4s43s110:57s114s 55 
115,58: 110:654: 105164 
107: 73s 103: 781 1035 81 
120:88:1385s 71, 137567 
128:42:1278154s 137 50 
120,50:118: 3259137: 62 
1435 b3s 1427550: 132: 50 
9189,81:115:87s 120,85 
137567: 128565: 1249: 81 
A84, 124510511151 117s 170 
12311551475 12051485 132 
140, 1357, 145s 1471315148 
133515549175: 95s 161: 90 


MENEN NO NEE MAENE OM ETE Ni OE Wir IE Wir ME WEE Mi Oi U. Vi Wis Wit Wi NE Bi Mr Mir MV Mit ir Wijs MW” Wiid rt Mit AE 


1098 
1326 
1554 
2408 
rp | 
2370 
2370 
2348 
2397 
2410 
2445 
2567 
2573 
2605 
2622 
2617 
z625 
2629 
5 den ben | 
2512 
2517 
2529 
2536 
2541 
2557 
2575 
2567 
2389 
z595 
2395 
2620 
2725 
z746 
27:38 
2655 
Zo48 
2650 
2428 
2725 
2694 
2670 
2654 
z7a1 
2744 
2752 
2774 
EE 
28351 
2782 
2361 
2827 
3017 
2968 
ZL 
2969 
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1598 DATA 160:871155,36: 1535 89 / 2885 
1608 DATA 1495875147: 715138: 71 / z891 
1618 DATA 9143,51,159,421 1545 33 / 2940 
1628 DATA 138: 30s152:17«:1515s 15 / 2886 
16308 DATA 9155:35,1581 26: 1685 32 / 2970 
1640 DATA 170:30,185:4519171:6A / 2968 
1650 DATA 164:60s162563, 155,63 / 27 
166A DATA 155s40As149s 40: 1435 51 / 2933 
1670 DATA 9083:84,89,85:37:s 90 / 2930 
1680 DATA 95590:104:85s110:87 / 212 
1698 DATA 110:92s11558559104185 / 3020 
1780 DATA 1005927: 95s 96:97: 98 / z90a 
1718 DATA 102595:97: 106: 100: 107 / 3030 
1720 DATA 118:185s111s116:105: 115 4 3118 
173A DATA 9110,105:130: 107: 129:88 / 3144 
1740 DATA 9999: F9 / E522 
1750 : / 1848 
1760 REM Ad SPRITES 99 / 036 
1778 DATA 1 :REM aantal sprites / z101 
178Q REM 28 SPRITE 5 A® # PR Wir} 
1790 DATA @:0: A: As A: A / 2580 
1808 DATA As 25270: Ds 111 / z697 
181A DATA 1s1s1:1:0:0 / 2604 
1820 DATA 128:128:128: 128: 0: A / 303A 
1830 DATA 53:A:A: A: B: A / 2677 
1840 DATA @:@ / ZOZ 
1858 DATA 833 : REM checkzsum # 2290 


2.6 Multiple choice 


De naam van het programma spreekt voor zichzelf. Op het scherm verschijnt 
een vraag met drie mogelijke antwoorden, genummerd één t/m drie. Eén van 
de antwoorden is goed. De gebruiker tikt het nummer van het antwoord in 
waarvan hij denkt dat het het juiste is. Voor elke vraag is de bedenktijd gelimi- 
teerd. Wordt de vraag niet binnen de bedenktijd beantwoord, dan wordt deze 
als foutief gerekend. 

Een goed antwoord is te herkennen aan een lachend gezichtje met een vrolijk 
melodietje. Een verkeerd antwoord laat een sip kijkend gezichtje zien met een 
treurig deuntje. 

Wil de gebruiker het programma beëindigen dan voert hij een nul in of hij drukt 
op functietoets F1. Nu verschijnt het eindresultaat op het beeldscherm. 

In het programma wordt een fouttabel, matrix B, bijgehouden, waarin de vra- 
gen worden opgeslagen die foutief zijn beantwoord. Indien er in matrix B poin- 
ters voorkomen die wijzen naar foutief beantwoorde vragen in matrix A$, dan 
is er een kans van 75 procent dat een foutief beantwoorde vraag opnieuw 
wordt gesteld. Wanneer een vraag goed wordt beantwoord, wordt in de modu- 
le ‘Goed’ nagegaan of de vraag in de fouttabel, matrix B voorkomt. Zo ja, dan 
wordt de pointer in matrix B verwijderd. 
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In de interne datafile zijn de multiple choice vragen opgenomen. De module 
‘Intern bestand’ verwerkt deze vragen met antwoorden tot matrix A$. 

De opbouw van de interne datafile is als volgt: Tussen de aanhalingstekens 
staat de vraag geformuleerd. Hierachter staan drie antwoorden. Het eerste ant- 
woord is het juiste antwoord. De twee volgende antwoorden zijn willekeurige 
antwoorden, foutief dus. 

Het spreekt voor zich dat de interne datafile behoorlijk uitgebreid of veranderd 
moet worden. In totaal kan matrix A$ vijftig vragen met bijbehorende antwoor- 
den bevatten. 

In dit programma is in de module ‘Initialiseren’ de variabele F opgenomen. De- 
ze variabele krijgt de waarde drie bij deze multiple choice samenstelling. Dit 
betekent dat achter elke vraag drie antwoorden in de interne datafile staan. De 
andere waarde die de variabele F mag hebben is 1. Dit betekent, dat achter elke 
vraag in de interne datafile slechts één antwoord staat. De twee foutieve ant- 
woorden zijn dan antwoorden die eigenlijk bij een andere vraag horen. Bij de 
listing van dit programma vindt u nog een korte listing van de module ‘Initiali- 
seren’, waarbij de variabele F op één staat met de daarbij behorende interne 
datafile. Tevens is hiervan een RUN-voorbeeld bijgevoegd. 

Bij het opbouwen van de vragen en antwoorden voor de interne datafile moet 
u in de gaten houden dat vragen die uit meer woorden bestaan tussen aanha- 
lingstekens moeten staan. De laatste DATA-regel moet er als volgt uitzien: DA- 
TA<STOP>,<STOP>,<STOP>. De regel mag beslist niet ontbreken, daar an- 
ders de module ‘Intern bestand’ het einde van de interne datafile niet kan vin- 
den. Het gevolg zal een foutmelding van de computer zijn. 

In dit programma kunt u met de variabele T2 de maximale bedenktijd instellen. 
In de strings G1$ en G2$ zijn de melodietjes opgeslagen voor een goed of fout 
antwoord. Het uitschakelen van het geluid kunt u bereiken door de variabele 
GD op nul te stellen. Door de variabele GD op één te zetten, schakelt u het ge- 
luid weer in. Alle hierboven genoemde variabelen vindt u terug in de module 
‘Initialiseren’. 

Suggestie: Het kan aardig zijn om in een tabel, matrix, per vraag bij te houden 
hoeveel goede antwoorden en hoeveel foutieve antwoorden er gegeven zijn. 
Een tweede suggestie is de module ‘intern bestand’ te verwijderen en hiervoor 
in de plaats een module te plaatsen, die in staat is de gegevens van een casset- 
te of diskette te lezen. U moet er alleen wel voor zorgen dat de variabelen de 
goede waarden krijgen. 


Programma 

18 REM #«x MULTIPLE CHOICE #x / 228 
28 KEY OFF / 47E 
3@ CLEAR 5000 / 544 
40 DIM A$(5As4)sR(10) / 925 
58 COLOR £1 313 / 673 
6D SCREEN 3 / 559 
70 OPEN "GRP:" FOR OUTPUT AS #1 / 1495 
88 GOTO 2140 # 57 
MB : / 148 
104 REM #*«* INITIALISEREN #%* / 376 
118 COLOR 1515,15 / 354 


120 
130 
140 

158 
168 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
330 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
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SCREEN 212 


DEFUSRI=&H41 :REM schrm disable 


DEFUSRZ=&H44 :REM schrm enatbl 


e 


DEFUSR3=&HID :REM reset Geluid 
DEFUSR4=&HI156:REM reset kevbrd 


DEF FNA(A) = INTERND(1)%A+1) 
CLS 8 TI = RND(-TIME) 
GD = 1 £ REM 1 = GELUID AAN 


T= @ G=@:P=0t:E=ga 
FF = 1 REM zie bauek 
F$="123" 5 KEV 15" 7" 

G1$ = "V1S5L9S11M5SABE" 

GZ = "VISL4S1 1M9BO3ZEOZBAG" 
GOSUB 338 : REM «xx INT BESTAND 


GOSUB 479 : REM «xx SPRITES 
EN ke: REM bedenktiid 
TIME = @ REM klak reset 
RT = @ REM resultaat 

RETURN 

REM #x* INTERN BESTAND 


RESTORE 24680 
FOR I = 1 TO 50 
READ A&(Is1) : H = @ £ NA = I 


IF A$(Is1) = "<STOP>" THEN 41 
H= 1 
FOR XEZ TO LP 


READ A$(IsX) 

NEXT X 

IF H = 1 THEN 430 
NA = IT = 1: I= 50 
NEXT I 

RETURN 


REM #*#* SPRITES INLEZEN #4 
RESTORE 2270 

READ SP REM aant sprites 
FOR J = 1 TO SP 

SD$ = *"" £ SC = A 

FOR I = 1 TO 32 

READ SD :£ SC = SC + SD 

SD$ = SD$ + CHRE(SD) 


NEXT 1 
READ SD REM checksum 
IF SC = SD THEN 610 


SCREEN B : COLOR 155454 
PRINT "Data van sprite"sJ3 
PRINT *zidn foutief,” 


STOP 

SPRITE$(J) = SD% 
NEXT J 

RETURN 

: 

REM ##*x TEKSTRIJ #x&% 


FOR Kl = 1 TÔ LEN(M$) 


Te Bn en Wi Vr Mie en ie ee Bee We en Ko Mien he ie en he Min rie oe in Pee Bn ea ee ar nin ie Uk Wan Mi iin a Mie Me hin Mn ii ae Tie Pen 


670 
6808 
690 
700 
718 
720 
730 
740 
750 
760 
770 
780 
790 
800 
812 
828 
830 
840 
852 
860 
870 
888 
890 
902 
918 
920 
930 
940 
958 
968 
970 
980 
9 
1008 
1810 
1820 
1030 
1940 
1850 
1060 
1070 
1080 
10908 
1100 
1110 
1120 
11308 
1140 
1159 
1160 
1170 
1180 
1190 
1200 
1210 


NS$=MID$ (ME; K1s 1) MI=(K1=-1) %6+M 


DRAW" BM=MI 5 s =N5 " PRINT #1s;N$ 
NEXT Ki 

RETURN 

REM xx OPENING sx 


PRESET (28:50) 

PRESET (28:50) 

PRINT #1s" Multi" 

PRESET (28:90) 

PRINT #1s" ple " 

PRESET (44130) 

PRINT #1s"chaice" 

FOR I = 1 TO 2009 : NEXT I 
RETURN 


REM «xx KOP war 

CLS 

M$ = "xx Multiple chaice #&% 
M = 65 : N= B £ GOSUR 6460 
M$=" Aantal aPpGgaven 8 
M = 23 : N= 12 £ GOSUB 660 
M$=" Aantal Goede antwaarden :" 
N = 28 : GOSUR 644 

RETURN 


REM #&% SCHERM OPBOUWEN sx 
LINE(194s 12) (2450: 28): 15: RF 
COLOR 1 

PRESET(186: 12) : PRINT #1sT 
PRESET (186: 20) : PRINT #15G 
M$="Wat is het Guede antwaard 2" 
M = 23 £ N= 32 £ GOSUB 660 

M$ = A$(Xs 1)" 7" 

M = 64 £ N= 44 £ GOSUR 460 
EOR TE = 1 TO 3 
PRESET(55548+I#8) : PRINT #1s1I 
M$ = C$(I) 


M = 75 : N= 48+I#8 £ GOSUB 640 
NEXT 1 

DUMMY = USR2(B) 

RETURN 

REM #&x INVOER ae 


Re A dk OE Ee 
M$ = "Wat is je antwaard ? * 
M = 23 £ N= B4 £ GOSUB 660 
M$ = "1, Z af 3 en Sstap = B>" 
N = 92 £ GOSURB 460 

DUMMY = USR4(B) :£ W = QG 

CR = 1 : T3=TIME+TZ#50 

IF TIME MOD 5 <> @ THEN 1220 
IF CR=1 THEN CR=15 ELSE CR=1 
COLOR CR £ DRAW"BM1 75: 9E" 
PRINT #1s"2" 


Ne Ve WEN Mt WD WG WT Nr Wi ME U NN Wot A On WO Ni Wi Wi Mir EE Mi Wi Wi Wi NS Wi Wi Wi Mis ier in Vr Uns is nr KiM er Dar Nar Vas Wir Kies 


1220 
1230 
1240 
1250 
1260 
1270 
12:80 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1368 
1370 
1380 
1390 
1408 
1410 
1424 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
15108 
1524 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
16508 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
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A$=INKEY$ 
IF A$="2" 
H=INSTR(F$sA$) : T5=T3-TIME 
IF H=@ AND T5>@ THEN 1180 

IF A$="9" 
LINE (175:92)-(1855s 182): 15: BF 


COLOR 1 


û 


T 


IF A$="" THEN A$="5" 
R A$="@" THEN 1380 


HEN A$="7" 


DRAW" BM175592" 2 PRINT H#lsA$ 


W= 1 
Tei 


1 


Z=0@ 


IF AT <> H THEN 1350 


G= G + 
DUMMY = 


FOR 1 = 
RETURN 


1 


Z=ti 


USR3 (A) 

ON Z + 1 GOSUB 14108 5 1530 

REM #x WACHTLUS «4% 

1 TO (2-V)#750 : NEXT I 


REM za FOUT Hek 

PUT SPRITE 15 {(178:60)s 41 2 
M$="Het antwaard is :" 
ME=ME+STRE(AT) +" "+X$ 


M= 23 « 


N 


= 104 £ GOSUR 660 


LINE(88; 1350) -(15A,175) 1 3: BF 
PRESET (95s 1504) 
PRINT #15" 2FOUTS" 
1 THEN PLAY G2% 
10 THEN 1510 
BG) =X 


IF GD = 


IF Q+1l 5 


QzOti : 
RETURN 


REM #exr GOED Her 

PUT SPRITE 15 (178:s468)s 10: 1 
LINE(8@;s130)-(158,175) 9 BF 
PRESET (95; 150) 

PRINT #1s">GOEDS" 

i THEN PLAY G1% 

REM #%* FOUTTABEL AANPASSEN «% 
IF @ = @ THEN 1692 

1 TOG 

B(I) THEN 1680 


IF GD = 


FOR I = 
ke MW ED 
IF @ = 

FOR J = 


NEXT J 
I=@ : @ 
NEXT 1 
RETURN 


1 THEN 1673 


2 F0 Wel 
B(J) = B(J+1) 


& 


REM xx OPGAVE *r 
LINE(@s 47) (2605 200) s 155 BF 
PUT SPRITE 15 (170,60) + As 1 
X = FNA(NA) 
IF G=8 OR RND(1) 2.75 THEN 1770 


X=FNA(G) 


: IF X=P THEN 1740 


XeR(X) 


NE NEMEN ENE DE ENNE NEMEN LEN MG DAS] NT NEEN NENDE EIN ME ir ENEN NE! WET MN Dr Ve ME METEN Ph WG MEN Wit Ni Di MET Mi MA NE RG A MG VNG 


2830 
2612 
Z844 
2537 
2293 
2756 
KAR 
2795 
1497 
1488 
2310 
1883 
2227 
2516 
2744 
2857 
18650 
1448 
167& 
2792 
320,3 
„545 
2673 
28083 
2312 
Z503 
wor 
„467 


Kela} 
sd IN 


1990 
1578 
1806 
29766 
2989 
2417 
2572 
2741 
2969 
2444 
2268 
2703 
2473 
2417 
2245 
2053 
2260 
2872 
2170 
1758 
1986 
3A85 
3107 
3263 
33528 
2726 


1770 
1780 
1798 
1829 
1810 
1820 
1834 
1840 
1850 
1860 
1870 
18808 
1894 
1900 
1918 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1998 
2000 
2010 
2020 
2030 
2040 
2050 
2068 
2070 
2089 
2090 
2120 
2110 
2120 
2130 
2140 
2150 
2168 
2170 
21808 
2190 
22008 
2210 
2220 
2230 
2240 
2250 
22608 
22708 
2280 
2290 
2300 
2318 


C$(1)=ZAE(Xs 2) 8 CH(P)ZAB(Ks 5) 
C$(3)=ZAE(Xs4) 2 XE=CH(1) 

X$ = C$(1) REM antwaard 

IF F <> 1 THEN 1870 

REM ##TWEE EXTRA ANTWOORDEN%# 
Y=FNA(NA) : IF Y=X THEN 1820 
Z=FNA (NA) 

IF Z=X OR Z=Y THEN 1830 
C$(2)=ZAE(Ye Ee) 7 CE(I)ZAE(Ze 2) 
REM #x DOOR ELKAAR «+ 

POR: ZE 1 TO 3 

J = FNA(3) £ K = FMA(3) 

SWAP C$(J)s CE(K) 

NEXT T 

REM ##ANTWOORDREGEL «+ 

FOR 4u j TO: 3 

IF X$ = C$(I) THEN AT = 1 
NEXT I 

P = X 

RETURN 


REM #xx RESULTAAT ##% 

COLOR 1554,4 £ SCREEN @ : CLS 
IFE T £ 1 OR G < 1 THEN 7420 
RT = INT(G#100 / T + .5) 
PRINT "#&x multiple chuice ##&%" 
LOCATE 2,5 & PRINT "Aantal "5 
PRINT "apgaven «"5 

LOCATE 217 & PRINT "Gaede A"5 
PRINT "ntwaardent"5G 

LOCATE 219 & PRINT "Percent" s 
PRINT "age Gaued "SRT 

PRINT 

RETURN 


REM xr STUURMODULE wees 
GOSUBR 730 :REM #*#& OPENING 
GOSUB 110 :REM #*# INIT 
GOSUR 840 :REM zer KOP 
GOSUBR 1728 :REM #x OPGAVE 
GOSUBR 948 EREM «xx SCHERM 
GOSUR 1118 :REM xx INVOER 
IF W = 1 THEN 2170 

GOSUR 1998 :REM «ex RESULT 
CLOSE #1 

END 


REM 22® INTERNE DATAFILE 999 
DATA 2 :REM aantal sprites 


REM 99 SPRITE 1 &à 
DATA 3s15s31s51s115: 255 
DATA 255255, 159s 231: 248, 127 


ER Ne Wi MNS Ne Mi Mi VE WN Vi Mi Vr ir EN OM Wi Mer WE Vi Mt Mi Ni Mi DD We Ne Nr Ve MM Ne, A Ve Wte ern At Mirt arne Mit. Ais lisse 


DATA 63s 3151543: 1925 240 

DATA 248, 204: 206: 255: 255: 255 
DATA 24942314314 254 2575 248 
DATA 2408: 192 

DATA 5409 «REM checksum 


REM 9) SPRITE 2 A8 

DATA 311553511631 1155 755 

DATA 2555255: 248: 231s 223: 127 
DATA 63s 31515: 3s 197 240 

DATA 24847574 206: 7 int oe 
DATA 31s2315,251s254s 252124 
DATA 240: 197 

DATA 5535 :REM checksum 


REM 2& INTERN RESTAND a 
DATA "éen kue"slaeit 
DATA "een schaap"sblaat 
DATA "een Hand"sblaft 
DATA "een TJeeuw"sbrult 
DATA "een raard"shinnikt 
DATA "een varken" sknart 
DATA "een vagel"sfluit 
DATA "een duif"skaert 
DATA "een kat" smiauwt 
DATA "een muis"spiePpt 
DATA "een ezel"shalkt 
DATA "een walf"shuilt 
DATA "een beer"sGramt 
DATA <STOP»s STOP 


NW Ms Mis Wit WG Nii Wi Bg NEU NE NE IG VEE Mi NE UM" NE 


3486 
3740 
APET 
2987 
2857 
2428 
z656 
Sd 
387 
3576 
3853 
38300 
3A7Z 
2942 
2518 
2744 
478 
43468 
41824 
4547 
4535 
4473 
4347 
4251 
4281 
4500 
4776 
4318 
4305 
3832 


Onderstaande listing geeft een voorbeeld van een nieuwe file met vragen. 


REM xxx INITIALISEREN #*« 

COLOR 1:15:15 

SCREEN 252 

DEFUSRi=&H41 :REM schrm dizable 
DEFUSRZ=&H44 :REM schrm enable 
DEFUSR3=&HID :REM rezet Geluid 
DEFUSR4=&H156:REM reset kevbrd 
DEF FNA(A) = INTARND(I)%A+1) 


CLS : TI = RND(-TIME) 

GD = 1 £ REM 1 = GELUID AAN 
T=0 :G=0t:P=0 e= 
F = 3 REM zie baek 
F$="123" £ KEY 19"2" 

G1$ = "V1S5L9S11M55SARPE" 

G2$ = "V15L4511MA0O3EOZBAG" 


GOSUR 338 : REM «#*x* INT BESTAND 
GOSUB 478 : REM *#** SPRITES 


ee rn na Mir eier ie. ie he Ode Min ME iS 


278 T2 = 5 REM hedenktiid 
280 TIME = @ REM klak rezet 
298 RT = @ REM resultaat 

308 RETURN 

318 : 

2460 : 


2470 REM d@ INTERN BESTAND @ò 
2480 DATA "de Mant Blanc ligt in" 
2490 DATA FrankriiksDuitslands Italie 
Z500 DATA "Langlaufen is cen" 
2518 DATA zrarts:gewassdier 

2528 DATA "Een leeuw” 

2538 DATA krultsmiauwtsblaft 

2540 DATA "Een havik is" 

2550 DATA raafvagelsweidevagel 
2560 DATA zeevogel 

2570 DATA "De ztrambali is een” 
2588 DATA vulkaarnsdgerechtsvrucht 
z590 DATA "Een el iz" 

2600 DATA lenatemaatsGgewicht 

2618 DATA inheaudzsmaat 

2020 DATA "Een helletbaard is" 
2634 DATA warensSGerechts lied 
2640 DATA "ZSTOPE" 


NE NG u Nr We 


Ne Nen BEN Ni Nie Wi” Wit Sina Oer air is Nitin ag 


518 
6% 
565 
738 
J68 


2518 
2746 
47 
556 
GAAT 
443 
3728 
4637 
3985 
4E 
3707 
4704 
5110 
3713 
4731 
A73 
4567 
4671 
3438 
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3. Rekenprogramma's 


3.1 Paddestoel 


Paddestoel is een rekenprogramma voor de kleintjes. Op het beeldscherm ver- 
schijnen twee grote paddestoelen. Tussen deze twee paddestoelen staat een 
kaboutertje. Na een aantal seconden verplaatst het kaboutertje zich naar de 
linker paddestoel. Daar vraagt hij ‘hoeveel stippen telt deze paddestoel’. Dit 
laat het kaboutertje zien door het knipperen van een vraagteken. Twee keer 
heeft de speler de kans om het goede antwoord te geven. Bij een foutief ant- 
woord schudt de kabouter nee. Bij een goed antwoord springt hij omhoog. Bo- 
ven op de paddestoel verschijnt het juiste antwoord. Is het antwoord van de 
speler goed dan verschijnt het getal in wit. Is het antwoord twee keer foutief 
geweest dan verschijnt het goede antwoord in zwart. 


WALMESsIK OL 


Deze cyclus herhaalt zich bij de rechter paddestoel. Na ook deze beantwoor- 
ding verschuift de kabouter naar het midden tussen de twee paddestoelen. De 
cijfers boven de paddestoelen verplaatsen zich naar de lichte balk onder in het 
beeld met een plus- of min-teken. Het is de bedoeling dat de daarna versche- 
nen opgave wordt beantwoord. Daar de antwoorden uit: meer dan één cijfer 
kunnen bestaan, moet men niet vergeten na het intoetsen van het antwoord de 
RETURN-toets in te drukken. Het programma kent twee niveaus. Bij het eerste 
niveau komen de opgaven niet boven de tien. Het tweede niveau genereert 
opgaven, waarbij de uitkomst de twintig niet overschrijdt. 
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Programma 


REM «xx DE PADDESTOEL #xx 
CLEAR 2000 

KEY OFF 

DIM K(15)sP$(S5)sA$(3s 2)sS5E(14) 
GOTO 33530 


REM #xx INITIALISEREN #axx 
SCREEN @ : GOSUB 540 : SCREEN Ze Z 
OPEN "GRP:*" A5 #1 


A$ = "[F-1J = Stappen zsrel." 

XZ = 20 : YZ = 88 £ GOSUR V40 
A$ = "Twintig seconden Geduld '* 
X2 = 20 : YZ = 128 £ GOSUB 940 
REM #x* INLEZEN STUURW STIP #% 
RESTORE 3532 

FOR I= { TO 9 

READ KI) 

NEXT TI 


REM #«* STIPPATROON #x 
AS=CHRE(1)+CHRE(LE) +" " 7 B$=" 7 
P$(1)=A$ : P$(Z)=BE+AS 
PE(Z)=EREARELAB 6 PEC) ZAR+RELAS 
P$(5)zAEHAEHAE 

GOSIR 750 £ REM «#*x SPRITES 

FOR 1 = 1 TO 14 

SPRITE$(19+I) = S$(I) 

NEXT 1 

ERASE S% REM niet meer madig 
REM «* VARIABELEN TOEWIJZING #% 
A = RND(-TIME) 

DEF USRI=&H156 :REM kevkrd leeg 
DEF USRZ=&HID REM Geluid leeg 
DEF USR3=&H41 REM scherm disable 
DEF USR4=&H44 :REM schrm enable 
DEF FNA(A) = INT(RND(I)#A) +1 


KEY ta 2e 

A1$ = "VISLOS11M55ARBE" 

AZ$ = "V1ISLOSBM3IGFE" 

M$ = "T145V15L9S11MSSFGAHAHGGFR" 
M$ = M$ + "+FGA+A+GGFBG" 

E$ = "Q123456789"+CHRE(1 3) 

P$& = "CIR4U4RID4R4ADIL 4DAL 1U4L 4" 
Z$ = "CIR9DILSG" 

G$ = "CIRS9QDILSBD2RIDILG" 

GD = 1 REM Geluid aan={ 

T7 = 86 REM hedenktiid sec. 
G=@ : T=Q :REM Jaed / aPdaven 


n 
> 
ij 
Ss 


REM niveau auta 


0 
lar 
1 


= @ 


544 RETURN 


REM xxx KARAKTER = SPRITE #x+# 
REM %% HUL PWAARDEN INLEZEN %% 


OE NN Apr Oe Bes afs Ser Aer Kie Ke ie ee it Sn elke Ee Se Mei Kare Ke re Wier ie ATS IE in ie A On RE 


540 
550 
560 
570 
580 
590 
608 
18 
&z8 
630 
640 
650 
668 
670 
480 
690 
708 
710 
7208 
730 
740 
750 
760 
778 
780 
790 
800 
810 
geza 
832 
840 
854 
840 
870 
880 
390 
00 
918 
920 
930 
940 
958 
960 
970 
980 
990 


100a 
1810 
1820 
1030 
1040 


RESTORE 3480 

FOR IT = @ TO 15 

READ K(I) 

NEXT 1 

REM #%* KARAKTERS Z&VERGROOT «« 

ST = BASE (2) 

C$ = "0123456789 +-=7" REM karakt 


FOR I = 1 TO LEN(C$) 

A$ == u 3 R$ = Ld 

C = ASC(MID$(C$sIs1)) 

FOR J = @ TO 7 

GE VPEEK(ST+C&8+J) 

Gi INT(GE/16) : GZ = GE MOD 16 
A$ AS+CHRS(K (GI) +CHRE(KLGI) ) 
Bs BS+CHR$ (K (GZ) ) +CHRE(K (GZ) ) 
NEXT J 

S$(I) = A$ + B$ 

NEXT 1 

RETURN 


Hen u 


REM #*#* SPRITES INLFZEN «xx 
RESTORE 3574 

READ SP ‘REM aant sprites 
FOR J = 1 TÔ SP 

SD$ = "" £ SC = @ 

FOR I = 1 TO 32 

READ SD : SC = S5C + SD 

SD$ = SD$ + CHR$(SD) 

NEXT 1 

READ SD REM checksum 
IF SC = SD THEN 890 

SCREEN @ £ COLOR 1554s4 


PRINT "Data van sprite"5J5 
PRINT "ziin foutief.” 

STOP 

SPRITES(J) = SD$ 

NEXT J 

RETURN 

REM xe TEKSTRIJ #4 


FOR J = 1 TO LEN(AS) 


CE=MIDE(ASs Jr 1) 2% XA=dkb-btXE 
DRAW "BM=X35s=YZ5" t PRINT#1sC$ 
NEXT J 
RETURN 
REM #%% BEELDSCHERM «xx 
DUMMY = USR3(Z) 
COLOR 155454 : CLS 
LINE(A:B)-(255s 115) s 41 RF 
LINE(@s1146)-(255s 120): 11: BF 


18508 LINE(@A, 171) -(255s 132) 29 BF 


LINE(@s 133) (255191): 3e BF 


1878 REM ## ZON MET WOLK #%# 


CIRCLE(135s 15) 15:10 


ket Rantanen iin is Mi dien ia enn oen Miao Ati isanne Minn sel Tie Di lie Mie Wi ne Tien Mie. Mies Hia itn Vin Pine Ma Un We in KMA Ee ie A MN NRU 


1890 
1108 
1118 
11208 
1130 
1140 
1150 
1160 
1170 
11808 
1190 
1200 
1218 
1220 
1230 
1240 
1254 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
15108 
1520 
1530 
1540 
1550 
1560 
1578 
1580 
1590 
1600 
1610 
1620 
1630 


PAINT (135,15), 10 

LINE (123:50)-(160:50):s 15 
CIRCLE(135:40)s 15:15 
CIRCLE(1460: 25): 25:15 
LINE(90,51)-(255s60) s 4: BF 
LINE(130:40) -(150:49) s 4: BF 
PAINT(155540)s 15 

REM «xx PADDESTOEL #« 
CIRCLE(40:65) 55:61 ss .9 
CIRCLE(2A3: 65): 505 bs ss. 9 
LINE(18,90) -(107:,90) s& 
LINE(163,90) -(246, 90): & 
PAINT(40:65)s& 
PAINT(203:45) s& 
LINE(As91)-(255s120)s 4: BF 
LINE(5@:90) -(70: 120). 15: BF 
LINE(195:90)-(215s120): 15: BF 
YZ = 123 : X2 =168 £ COLOR 1 
A$ "Punten £" £ GOSUR 940 
A$ "De paddezstael" 

X2 24 8 Y2 = 123 8 GOSUB 940 
DUMMY = USR4(B) 

PUT SPRITE 1s{(135489)s 151 
PUT SPRITE 2: (1351185) s 1s 2 
PUT SPRITE 71 (135«R9)5 956 
RETURN 


REM xxx OPGAAF ze 

Pi=9 t P2=9 8 TE=A 

NI = INT(G/5)+1 

IF FA <> @ THEN NI = FA 


IF NI=i THEN P1=5 : P2=5 & TE=I 
IF NI=? THEN P1=9 : P2=5 : TE=1 
IF NI=3 THEN P1=9 : P2=5 8 TE=? 


P1=FNA(PI) %£ P2=FNA(P2) 

IF TE <> @ THEN 1460 

TE=1 % IF RND(1) £ „5 THEN TE=2 
IF TE <> 1 THEN 1510 

P3:= P1 #* P2 

IF NI <> 2 THEN 1510 

IF P3 > 1@ THEN 1400 

IE RND(1) < ,5 THEN SWAP P1sPZ 
IF TE <> 2 THEN 154 

IF Pi < PZ THEN SWAP P1:PZ 

Pam Pi Pa 

FOR J = 1 TÔ 2 

IF J=i THEN P=K(P1) ELSE P=K(P2) 
H3=P MOD 10 : HI=INT(P/100) 
H2=INT ( (P-H3-H1#100) /10) 
A$(1sJ)=PECHI) ft AS(Zs J)=PE(HZ) 
A$(3s J)=P$ CHI) 

NEXT J 

IF TE=1 THEN T$=P$ ELSE T$=Z$ 
RETURN 


er WE A Mi Wrs Di er Mi Mis VOE Ni Vi Wi DO Di Wit Wirt Mi VE Wi Mir EO 5 WE Wi Wir AD NE Ui iin Meier We Miet Oee Mii Mn: Mie Di Sia ir An: 


1991 
2340 
2214 
2226 
24672 
2514 
2456 
2284 
2416 
2473 
2341 
2409 
2022 
2879 
2554 
2613 
2734 
2503 
2823 
2742 
z594 
2188 
z74A 
2749 
2739 
1870 
1408 
1636 
Z2ai 
2171 

7448 
2973 
2988 
34AA 
„714 
2417 
2998 
ZA 
1954 
2448 
2423 
3081 

2443 
2903 
2026 
2148 
3330 
2973 
2895 
306 
2322 
1993 
3270 
2140 
1688 
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1640 
1658 
1660 
1670 
16840 
1694 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1774 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1974 
1980 
1990 
2000 
2010 
z020 
2050 
2044 
2050 
2460 
2070 
zaan 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
21608 
2178 
2180 
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REM #x*x WISSEN #*x 

LINE (38:35) -(90:89) sb: BF 
LINE (175s35)-(235:89)s bs RF 
LINE (@,133)-(2554191)s 35 BF 
FOR J = 22 TO 25 

PUT SPRITE Js (2551190) s 8: 20 
NEXT J 

PUT SPRITE 20: (140:5)s@s 20 
PUT SPRITE #1:{195:5)s3: 20 
RETURN 


REM #% WEERGAVE #4 

IF PL=t THEN P=Pi : RESTORE 4270 
IF PL=Z THEN P=PZ : RESTORE 4230 
IF PL=3 THEN P=P3 £ RESTORE 4240 
READ SXsSYsKXsKYaRIsRXsRYs AK 

FOR XX = KX TO SX STEP RI 

PUT SPRITE 1s(XXs5Y)s1s1 

PUT SPRITE 2Zs(XXsSY+16)s 14 2 

PUT SPRITE 7s (XX185Y)s9s6& 

NEXT XX 

IF PL = 3 THEN 1910 

PX = (PL-1)#140+40 7 COLOR 15 
FOR I1 = 1 TO 3 

PY=Ii#15+20 £ DRAW"BM=PX:s=PY5" 
PRINT #1sAS(I1sPL) 

NEXT Ii 

RETURN 


REM xx GOED Hr 

SR = 2 

FOR Ii = 1 TO 10 

IF SR=2 THEN SR=4 ELSE SR=Z 

IF SR=2 THEN Y1=105 ELSE Y1=89 
PUT SPRITE 1s(SXsY1)s 1: SR 

PUT SPRITE 2: (SXs Y1-16)s 1e SR-1 
PUT SPRITE 71 (SXsY1-16)1956 
FOR J = 1 TO 58 : NEXT J 

NEXT I1 

RETURN 


REM sw FOUT wer 

SR = 1 

FOR Il = 1 TO 19 

IF SR = 1 THEN SR=5 ELSE SR=| 
IF SR = 1 THEN SPz=z6 ELSE SP=7 
PUT SPRITE 1s{(SXs105)s 152 
PUT SPRITE Zs(S5X1089)s 1: SR 

PUT SPRITE 7s (SXs89)s9s SP 
FOR J = 1 TO 58 : NEXT J 
NEXT I1 

RETURN 

8 

REM #x GOED/FOUT xxx 

IF W = @ OR PD > @ THEN 2320 


ENG al Mi Merk FN NM MENDE ME Na NEE MN NM Vs, BOS Ni Miet WD MMT Mt KM AE Ei er NG Wi MENS st Not Tb ie ij Mt 


1918 
294 
3057 
3446 
2412 
3197 
203 
3133 
3154 
2210 
1798 
2076 
3548 
3561 

3574 
36858 
3236 
3287 
3440 
331 

23,55 
2767 
3297 
2547 
3709 
2919 
2341 

2390 
1978 
2206 
2216 
2673 
3533 
34650 
359 
3782 
3600 
3140 
2461 

2510 
2098 
256 
25 
2798 
3657 
3465 
3546 
3635 
3656 
362 
2581 
2630 
2218 
2446 
3440 


2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2328 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
24908 
2508 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
25808 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2718 
2720 
2730 


A$="Gaed" £ D$=A1$ : Hei 

IF C=P THEN 2220 

A$="Faut" & D$=A2$ : H=@ 

G= G +H:T= Teti 
LINE(210,122)-(255s 130) s 2: BF 
DRAW" BM210: 123" £ PRINT #15G 
LINE(RX-18: RY) -(RX+8s RY+8) « AKs BF 
XZERX-18 8 YZERY £ GOSUB 940 
DUMMY=USRZ (0) :REM reset geluid 
IF GD=1i THEN PLAY D% 

ON H+1 GOSUR 2060: 1940 

IF PLAY(@) = —1 THEN 2300 
DUMMY=USRZ (2) 

RETURN 


REM ##% OPHAAL «% 

TIME=@ & KL=15 : W=@ 
LINE(RX-18: RY) -(RX4+8: RY+8) 1 AKs BF 
DUMMY = USR1 (0) 

IF KL=15 THEN KL=AK ELSE KL=15 
DRAW "BM=ERX3s=RY5" 7 COLOR KL 
PRINT #14,"2" 

L&S=INKEY$ : IF L$="" THEN L$="2" 
IF L$ = "2" THEN 2500 

H = INSTR(ESsL$) 

T3 = T2#50-TIME 

IF H=@ AND T3 > @ THEN 2380 

IF H = @ THEN L$="7" 
LINE(RXs RY) -(RX47s RY#7) s AKs BF 
DRAW "BM=ERXEs=ERY5" 7 COLOR 1 
PRINT #isL$ : W = 1 

RETURN 

Hd 

REM xxx STURING ### 


FOR I = 1 TO 2 

AT=8 : PL=l & GOSUB 17608 : HX=I 
AT=AT +1 t GOSUR 2350 

=Z : IF W = @ THEN 2640 

I= HX 


C=INSTR(ESsL$) -1 :£ GOSUR 2180 

IF H=@ AND AT<2Z THEN 2550 

IF H=i THEN KL=15 ELSE KL=i 
HX=(l-1)#140+55 : HP=19+I 

PUT SPRITE HPs (HX: 5) sKLs 20+P 
LINE(RX-18s RY) -(RX+0s: RY+B) 1 AKs BF 
NEXT TI 

IF W = @ THEN 3103 

REM #%& OPGAVE ONDERBAND ## 

PL=3 : AT=@ £ GOSUR 1760 

FOR I = @ TO 20 

X1=55+25/2041 « Y1=5+145/70%1 
X2=255-155/20#I: Y2=150/201 
X3=195-75/20RI tt YI=5+145/2041 
X4=140/ 2041 : Y4=150/20%1I 
LINE(RX-18s RY) -(RX+8s RY+8) s AKs BF 


De in Tien Tihn Nn Mk, Mie Min Bi Ton Wie Me a oi on ia Mn Mi Ein teke Mii ian Wii Min Tin Ee ite Me Mi a Mo a Men Be ii Wi Tkn Minn We on Tee iin is Wi Me ik nn Te Vn Mi UheTe 


2748 
2750 
2760 
2770 
z780 
2798 
2800 
2810 
280 
2830 
2840 
2850 
2868 
2878 
Z3880 
2890 
2900 
218 
ZE 
2930 
2940 
2950 
z960 
2970 
z9808 
2990 
3020 
3010 
3020 
3030 
3040 
3050 
3060 
3870 
3480 
300 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3198 
3200 
3210 
JO 
3230 
3240 
3450 
360 
3270 
3280 
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IF GD = 1 THEN BEEP 

PUT SPRITE Z2s (X1sY1i)s1sEO+P1 
PUT SPRITE 24s (XZs Y2)s 15 29+TE 
PUT SPRITE 231 (X3s Y3)s 1s 20+PZ 
PUT SPRITE 251 (X4sVY4)s ls 32 

IF GD = 1 THEN BEEP 

NEXT I 

DRAW "BM10As:157" z DRAW "XT$S" 
DRAW "BM140,155" £ DRAW "XG$5" 
PUT SPRITE 241 (1085150): A 

PUT SPRITE #5: (120:150) : 0 


FOR I = 1 TÔ 4 

Xis= 1 = T MOD 2 z XZ = I 

IF Xt = @ THEN D$ = "*" 

GOSUEB 2350 REM HK OPHAAL 
Heg 2 Iz4 z IF Wel THEN 3070 
Ì == XE 

GC = INSTR(ESsL.$) -1 


IF C = 18 THEN Cal 5 Le" 

IF C = =l THEN 2964 

HX=XiZDt1i6 zt HPEXI+Z4 

PUT SPRITE HPs (HX4 150) s 1 C+70 

D& = D& + 15 8 C = VAL(DE) 

IF Xt = @ THEN 3070 

GOSUR 2180 : KL = 15 

IF H=A AND I= THEN KL=@ 

IF H=@ AND I=4 THEN KL 

XZ = KL 

Pi=INT(P3/18) &£ PZ=P3 MOD 10 

IF Pi=@ THEN Pi=P3 : X2 = @ 

PUT SPRITE Z4s (168: 150) s KL.s 244P1 
PUT SPRITE #5: (1805150) s XA 20+PE 
IF H = Ì THEN 1 = 4 

NEXT IT 
LINE(RX-18: RY) -(RX+Bs RYB) s AK s RF 
FOR Jel TO (Z-H)#800 £ NEXT J 
RETURN 


REM ex RESULTAAT ##x 

RT=8 : GOSUB 14658 £ COLOR 1 

IF T=A AND G=0 THEN 3160 
RT=INT(G#100/T+. 5) 

LINE (@s131)-(255s 191) s 3: BF 
A$="Aantal arpgaven £" + STR$E(T) 
Xr=20 ft V2=I40D £ GOSUR 940 

A$=" Aantal Gaed 8“ + STR&(G) 
XZEE0 t YZ=150 £ GOSUB 940 
A$="Percentade Gueds" + STR$(RT) 
Xi=20 £ YZ=168 £ GOSUB 940 
DUMMY=USRIE (A) 

A$="Druk een taetzs in ! 
Xi=Z0 & YZ=180 : GOSUR 940 

IF RT>7@ AND GD=t THEN PLAY M$ 
IF PLAY(O) = —-1 THEN 3270 
DUMMY = USR1(G) £ RT = 120 


han inn Sn tn Bs: Mean ie enn Vlie onsen Mise We ke Re Pee Na Men hin ie ie ne Vin Me Bnn Maa dee an ein diie ks kin ka Go Me Min in in Vn Kn Un en MR MT 


3719 
AE] 
4463 
GAAT 
4291 
37469 
3192 
4364 
4363 
4208 

221 
3479 
3829 
3795 
3466 
4219 
SE 
3074 
GAZ 
33047 
4185 
A4 
3987 
3244 


3290 
3300 
3510 
3520 
3330 
3340 
3350 
3360 
33570 
3380 
3390 
3400 
3418 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
5700 
3710 
3720 
3730 
3740 
3750 
3768 
3770 
3780 
3790 
3300 
3810 
3820 
3830 


AS=INKEY$ & IF A$="" THEN 3290 
RETURN 

: 

REM xxx STUURMODULE wam 
GOSUR 80 zREM #xx INIT 
GOSUB 1810 :REM ## BEELDSCH 
GOSUB 14650 :REM ##*x WISSEN 
GOSUR 1370 :REM #** OPGAAF 
GOSUR 2530 :REM ##** STURING 
IF W <> @ THEN 3350 

GOSUB 3130 :REM ##% RESULTAAT 
DUMMY = USR2(0) 

COLOR 155454 : SCREEN @ 

END 


REM 299 INTERNE DATAFILE 99 


REM DD HULPWAARDEN K(I) @à 
DATA B 3s 17515448551 

DATA 60,63: 197: 195: 204 
DATA 207: 240: 2435 252: 255 


REM 29 STUURWAARDEN STIPPEN @9 
DATA 10: 204: 222: 40449 252 
DATA 505545445455 555 


REM @à SPRITES 95 

DATA 7 :REM aantal sprites 
REM 92 SPRITE t aa 

DATA Zs6s15s31s63s 111 

DATA 71:7:8:181171 20 

DATA 1958: 7: 150: Q 

DATA @,128:1278:1925 1971224 
DATA 165725136540: 200: 16 
DATA 224: 1728 

DATA 2104 :REM checksum 
REM 9® SPRITE 7 99 

DATA 3156355455555 55 

DATA 485554 55s 381 385 6 

DATA 656530: 50: 248: 2527 

DATA 23652365 7361 2361 171 236 
DATA 236:100s 100: 96: 95: 96 
DATA 120120 

DATA 328% REM checksum 


REM sa SPRITE 3 $à 

DATA 2s6415s31s63s 111 

DATA 71513551365 710: 209: 212 
DATA Z11:s700s 199: 2250: 0 
DATA @s128, 12851927, 1975 2275 
DATA 17:75:139543: 2035 19 
DATA 227:135 

DATA 3759 z:REM checksum 


MA Mn | Ee Nt NN NG Ni Me EEEN ME NEEN NNE MN Bt Nin AERON. Mi MD Nt PME Ee ENGS NT NE NEE MG Vit WE MEA AE EE ME NGE 


4817 
3730 
3368 
3595 
3818 
3918 
3938 
3947 
3956 
4286 
3973 
4286 
4541 
3635 
3485 
34n 
3726 
351R 
3744 
HAP 
ba a 
4723 
3548 
3794 
4638 
4587 
368 
3846 
3507 
4145 
4650 
4574 
4474 
4944 
4843 
4273 
4127 
37148 
3944 
481 1 
4780 
4819 
5086 
5000 
4350 
4229 
3808 
48.35 
4830 
5144 
4995 
he Hb Men | 
SAZG 
45 
4378 
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3840 
3850 
3340 
3370 
3880 
38390 
300 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4050 
4090 
41008 
4110 
4120 
4130 
41408 
4150 
4168 
4170 
4180 
4190 
4200 
4210 
422 

4230 
4240 


REM 22 SPRITE 4 &à 


DATA 


2559255 1274 31e 7s 7 
75057161656 

616: 30, 30: 2555255 

E54 E48 Zar ZES ZZA D 
Z24r961 bs Ibs Phs 5 
170: 170 

3414 EREM checksum 


REM dà SPRITE 5 aa 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


alerte 

11s3s 371756 

448: Zs1s0s 128 
128,192,192, 19252254: 240 
As 11232748 A« 117 

0128 

1786 : REM checksum 


REM 99 SPRITE 6 @à 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Oss As A: Ds A 
AsAs15s 31e 31e 31 
31515750: A: A 

VERGER GERGER EN’) 

Z4As 248 Z4Bs 2485 2485 240 
2240 

1857 :REM checksum 


REM à® SPRITE 7 99 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


0:05: A: 0 

Oss As As A: 1 

3e7s1ls1is0s A 

Oss: As A: @ 

ZAAD 4Os 2405 7403 2405 240 
Z40s A 

1693 sREM checksum 


REM 89 STUURWAARDEN LOPEN 92 
DATA 80,89: 145:89;s-1s 9058056 
DATA 175:89,80:0%; 1: 185:80:6 


DATA 125,89,175489«-1s 145: 80: 4 


NEEN EE IEN ENG: WANEN MEC NI: IEC OEE VEE, NE EME NE Aij Wp ei, WE EES ke 


3898 
4126 
50:38 
44697 
5020 
5209 
5187 
45:30 
446 
3938 
4716 
4911 
4875 
4874 
5487 
5041 
4529 
4506 
4078 
4304 
4830 
5050 
4963 
4360 
5514 
4616 
4595 
4148 
4396 
4920 
4931 
4952 
4950 
a 4 
4704 
4633 
4258 
4486 
5649 
5672 
5769 


Voorbeeld 


3.2 Vermenigvuldigen 


Dit programma traint in het omgaan met de tafels. Het programma kent vier 

mogelijkheden: 

— De tafels worden op volgorde achter elkaar van één t/m tien afgewerkt. 

— Per tafel worden de opgaven door elkaar gegenereerd. Het programma 
begint bij de tafel van één en eindigt bij de tafel van tien. 

— Alle tafels worden door elkaar gegooid. Het programma genereert wille- 
keurige vermenigvuldigsommen uit de tafels één t/m tien. 


Indien u verder dan de tafel van tien wilt gaan, kan dit vrij eenvoudig worden 
gerealiseerd. Hiertoe verandert u de variabele TA in de module ‘Initialiseren’ in 
de door u gewenste waarde. Maakt u bijvoorbeeld de waarde TA gelijk aan 
vijftien dan zullen alle tafels worden gegenereerd t/m de tafel van vijftien. In dit 
programma is geen gebruik gemaakt van het mechanisme van maximale be- 
denktijd. Aan de hand van de overige programma's in dit boek moet het moge- 
lijk zijn dat u dat zelf in het programma inbouwt. 

U kunt verder proberen met de andere programma’s als voorbeeld een leuke 
achtergrond te maken. 
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Programma 


10 
za 
JA 
40 


REM #4 VERMENIGVULDIGEN #4 
KEY OFF 

CLEAR 5000 

SCREEN @ 

GOTO 1090 


REM %*x INITIALISEREN #&x 
T= 8 :G=A:Ke= gg 
KEY1s "A" +CHRÉ(1 5) 

GD = 1 REM geluid aar 
DEF FNACA)ZINTORND(I1D A41) 
COLOR 151454 

A = RND{-TIME) 

TA = 14 REM max. tafel 
RETURN 


REM sx OPGAVE Hex 
A = FNA(I) £ B = FNA(10) 
IF K = 1 THEN 210 
IT tBes=J 
3 A %* B 
RETURN 
REM #x*x KOP Hex 
CLS 
PRINT "axs VERMENIGVULDIGEN wee! 
RETURN 


REM ##** TAFELS ACHTER ELKAAR a 
FOR I = Â TO TA 
FOR J = t TÔ 1@ 


AL = @ 
IF M=i THEN Kel ELSE K=g 
GOSUB 180 REM Hex OPG 
GOSUR 440 EREM xxx IITTV 
IF 5 = @ THEN I=TA : Jel & Le3 
C.S Le A 
IF H=B AND L£Z THEN 35@ 
NEXT J 
NEXT 1 
RETURN 


REM %xx UITVOER sx 
GOSUR 2750 :REM xe KOP 
PRINT TAR(1A)"Tataal aamtals"sT+1 


PRINT TAB(18)" Aantal Goed #"5G 
PRINT: "SSTOR = DA ur Dkt 3’ 
LOCATE 56 

PRINT Bs"*"sAstm= "3 

INPUT A$ : 8 = (A 

IF A& = "@" THEN 614 


S = VAL(A$) 


Ke Se Wi ir Si AEN en VE NE NE Br ir Bn Mn NA Ni NEE EE NEE Her VE EE VE WN Ai ME WE VE a WN Ei en MENT NGE LEN 


ATE 
506 
536 
545 
118 
346 
Hes 
1413 
349 
1618 
797 
913 
447 
63 
218 
446 
1749 
J48 
658 
Sd 
700 
z38 
516 
478 
Z25E 
75 
33 
566 
126 
9835 
505 
14:50 
877 
824 
1817 
675 
1556 
788 
IE 
390 
AE 
76 
975 
„079 
z618 
7181 
1471 
Bn pe) 
1751 
13435 
1073 


538 
540 
554 
560 
570 
580 
590 
600 
618 
620 
63Q 
640 
650 
boa 
670 
6830 
60 
708 
710 
720 
730 
74 
758 
760 
770 
783 
790 
800 
810 
8za 
830 
842 
858 
86 
878 
880 
33 
Aa 
910 
PE0 
A 
40 
954 
G40 
970 
San 
9 
10920 
1019 
1070 
1030 
1040 
1454 
1060 
1270 


IF S B THEN 440 

IF S C THEN H=i ELSE H=@ 
ON Hett GOSUR 750: 700 

LOCATE 59 

PRINT "Het antwaard is #8"5C 
FOR X = 1 TO 75@%(2-H) 

NEXT X 
T=T+i1ietG=G+H 
RETURN 


REM xxx WILLEKEURIG #x% 

K = 1 : I = TA £ GOSURB 1608 
GOSUB 440 REM «xx UITVOER 
IF 5 <> @ THEN 640 

RETURN 


REM xx GOED 

LOCATE 25:56 : PRINT "GOED" 

IF GD=1 THEN PLAY"V15L9S1 1M55ABE" 
RETURN 


REM ka FOUT H+ 

LOCATE 2556 : PRINT "FOUT * 

IF GD=1i THEN PLAY"V1S5L9S58M39GFE" 
RETURN 


REM #xx MENU xx 


GOSUR #50 REM sax KOP 

LOCATE Zs4 

PRINT "QQ = Stappen [resultaat 1" 
LOCATE 26 

PRINT "1 = Tafels achter elkaar" 
LOCATE 2:98 

PRINT "2 = Per tafel daar elkaar" 


LOCATE 2:10 

PRINT "3 = Tafels daar elkaar" 
LOCATE 2,12 

PRINT "Wat is ie keuze 7? es 
LOCATE Z0s17 & A$ = INPUT&(1) 
PRINT At 

M = INSTR("@123" s AR) —1 

IF M < @ THEN 390 

RETURN 


REM xxx RESULTAAT xx 

R= QG 

IF T=8 OR G=@ THEN 1010 

R = INT(G#100/T+.5) 

GOSUB 250 zREM xxx KOP 
LOCATE @:6 

PRINT "AANTAL OPGAVEN, .. 8" 5 
PRINT "GOEDE ANTWOORDEN, 1" 5G 
PRENT "PERGe GOED an ven & 3 
RETURN 


EE EEE EN We Ne MN Ma Mit Ani MGA Dt ik EAN NE EN TEEN MG NIG Bg TEE MIE EE, Mi NE OE St, 


1570 
JR57 
14606 
1154 
2705 
1618 
7 
1297 
1990 
678 
A6 
1741 
1186 
1533 
1154 
738 
66 
wp add 
2664 
1224 
7aa 
1016 
2264 
z488 
1750 
838 
1046 
1335 
1396 
340 
1418 
3405 
144 A 
3475 
1501 
3257 
1523 
3114 
257 
1418 
Zas 4 
LA 
1430 
1418 
1746 
‚ES lt | 
Z164 
1990 
1545 
1606 
2877 
z894 
2699 
1540 
11778 
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1088 REM xs STUURMODULE #e 
149B GOSUBE AQ REM sax INIT 
1188 GOSUP 8300 REM #x MENU 
1118 IF M=t THEN GOSUB 300 
1120 IF M=2 THEN GOSUR 300 
1132 IF M=3 THEN GOSUR 640 


bnn nie Pe Ee Me Me Me 


1140 IF M <> @ THEN 1100 
1158 GOSUR 940 

1160 END 

Voorbeeld 


KK VERMENIGVULDI KKK 
nd pd, aantal 
£<STOP = 05 of CF -1] 


18 * 2=2ma 


3.3 Helicopter 


Het programma helicopter is een rekenprogramma voor de groteren. Het is de 
bedoeling om zo snel mogelijk antwoord te geven op de gestelde vragen. Hoe 
sneller de antwoorden worden gegeven des te hoger de helicopter gaat vlie- 
gen. Hoe langer u doet over de opgaven, hoe lager de helicopter gaat vliegen. 
Misschien wel zo laag dat hij uiteindelijk landt. Heeft de helicopter een bepaal- 
de hoogte bereikt, dan draait hij een kwartslag en gaat vooruit vliegen. U moet 
er dan wel voor zorgen dat hij niet tegen de boom vliegt, want dan hoort u een 
oorverdovende explosie. Gebeurt het, dan moet u weer helemaal van voren af 
aan beginnen. De opgaven worden moeilijker naarmate de helicopter langer 
en hoger in de lucht is. U begrijpt het al, het komt erop aan snel te reageren en 
goed te kunnen rekenen. 
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Op het startniveau zijn het optelsommen die niet boven de tien uitkomen. Uit- 
eindelijk zijn het opgaven, waarbij door elkaar aftrekken, optellen, vermenig- 
vuldigen en delen voorkomen. U beëindigt het programma door functietoets 
F1 in te drukken als het programma op een antwoord staat te wachten. Het 
programma laat dan het behaalde resultaat zien. 

Tijdens het gehele spel hoort u het geluid van de helicopter om u te suggereren 
dat hij daadwerkelijk vliegt. 


me. 


ef \ EN 
Ne 


Mochten de geluiden u hinderen dan kunt u door de variabele GD in de module 
‘Initialiseren’ op nul te zetten het geluid uitschakelen. In dezelfde module komt 
ook de variabele T2 voor. Deze variabele regelt de maximale bedenktijd. Deze 
is nu ingesteld op 5 seconden. De variabele T2 krijgt de waarde vijf. U kunt deze 
waarde naar wens wijzigen. 

In de module ‘Initialisatie’ vindt u een viertal functie-aanroepen naar het opera- 
ting system van de MSX-computer. U zult deze vier in een vrij groot aantal pro- 
gramma'’s tegenkomen. De eerste functiecall, USR1 = &H156, zorgt ervoor dat 
de buffer van het toetsenbord wordt leeggemaakt. De twee, USR2 = &H90, re- 
sets de soundgenerator van de MSX-computer. Het voordeel hiervan is dat er 
allerlei verschillende geluiden worden geproduceerd, zonder dat ze elkaar 
beïnvloeden. U moet er alleen voor zorgen dat u de functie aanroept, voordat u 
geluid wilt laten horen via het SOUND- of PLAY-statement. De laatste twee 
functie-aanroepen horen bij elkaar. USR3=&H41 koppelt het scherm als het 
ware los. Het gevolg is dat het scherm wit wordt. U kunt wel met behulp van 
een schermstatement als PRINT, LINE enz. een scherm opbouwen, maar de 
gebruiker ziet het niet. Op het moment dat de functie wordt aangeroepen die 
verwijst naar USR4 = &H44 zal het scherm weer zichtbaar worden. Het active- 
ren van zo’n systeemfunctie geschiedt met DUMMY = USR1 (0). In de plaats 
van het cijfer 1 kunnen ook de cijfers 2, 3 of 4 staan. De werking van deze func- 
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ties laat zich het beste verklaren door er eens één weg te halen en weer terug te 
zetten. U kunt dit het beste doen in de module ‘Beeldscherm’. Wanneer u in 
plaats van de opdracht ‘DUMMY=USR3 (0) een REM-statement plaatst, kunt u 
zien hoe het beeldscherm wordt opgebouwd. Plaatst u de regel weer terug dan 
zal het lijken alsof het scherm in één keer wordt opgebouwd. 


Programma 
18 REM #%* HELICOPTER #x 7 28 
28 CLEAR 4000 7 575 
30 DIM 7(3s2)sAS(4) sr G(13s 2) 7 Ur3z 
48 KEY OFF / 495 
50 GOTO 2220 / 561 
68 : / 118 
70 REM *#*x* INITIALISEREN ##% / Zk 
BO COLOR 155454 t SCREEN 2s2 / 1407 
98 OPEN "GRP:" FOR OUTPUT AS #1 / 1715 
108 A$ = "[F-1] = Stappen spel 1" / zat 
118 XE = 20 : YZ = 88 £ GOSUB 1750 / 141 
120 GD = 1 REM geluid aan / 369 
138 TZ = 5 sREM bedenktijd sec / 378 
148 Fj = @ : PD = A / 683 
158 Zilstet £ ZiisP)er € ZEI ID =ER / 1540 
16A Z(ZsZ)eE4 8 2315 8 ZZE) =b / 1564 
178 X = 129 1 Y = 147 «REM xv heli / 2834 
180 XB = 40 7 YR = 9E REM vev haam 7 876 
190 N = 1 : R= =l Hi e= 0 / Gb 1 
208 H = RND(-T IME) :REM reset rod / FA 
218 A$(1) = "4" 1 AB(Z) = Pel / 1977 
220 A$(H) = "&" 1 AB(4) = "el / 1103 
230 E$ = "A1L34567EG" +CHRE(L3) / 1470 
240 E% = EB + CHRÉ(G) / 944 
258 Al$ = "V15L9S11M5SARE" j 1414 
2608 AZ$ = "V15L9S8EM3IGFE" ij 1395 
278 KEY 15"7" 8 DEF USR1 = &H156 / 1618 
288 DEF USRZ = &HID / 10463 
290 DEF USR3 = &H41 / 1070 
300 DEF USR4 = &H44 / 1084 
318 DEF FNA(A) = INT(RND(1)%A+1) / 1810 
328 GOSUR 420 :REM #* SPRITES 7 54 
330 REM «* GELUID HELT «+ / 1aa7 
348 FOR J = 1 TO Z / 948 
350 FOR I = @ TO 13 / 1076 
368 READ G(TsJ) / 937 
370 NEXT I / 762 
330 NEXT J /á ZIS 
398 RETURN / 870 
440 : / 458 
418 REM *#** SPRITES INLEZEN xx / 686 
28 RESTORE / FAR 


450 
444 
454 
460 
470 
4802 
490 
Saa 
518 
528 
530 
540 
550 
560 
570 
588 
590 
30 
610 
623 
630 
640 
650 
660 
670 
480 
690 
708 
718 
728 
730 
740 
750 
760 
770 
7808 
790 
800 
s10 
820 
830 
840 
850 
8460 
870 
830 
890 
04 
910 
20 
930 
940 
950 
9,60 
978 


READ SP REM aant sprites 
FOR J = 1 TO SP 
SD$ = "* 8 SC = 0 


FOR Je 1 TO 32 

READ SD £ SC = SC + SD 
SD$ = SD% + CHRE(SD) 

NEXT TI 

READ SD REM checksum 
IF SC = SD THEN 56Q 


SCREEN B :£ COLOR 155454 
PRINT "Data van sPrite"5J5 
PRINT "zin fautief." 

STOP 

SPRITES(J) = SD$ 

NEXT J 

RETURN 


REM #xx* ROTOR DRAAIEN ##x 
IF Y > 118 THEN Y = 118 

Er NK & THEN Y = 2 

M= 1 : IF Y > 98 THEN 670 
IF Y > 45 THEN M=Z ELSE M=3 
IF M <> 1 THEN XBR = XB41 

IF XB > 255 THEN XR = 1 

R= R& =-1 sNe=ENe+R 

PUT SPRITE As (Xs Y)s1sZ(MsN) 
PUT SPRITE 2: {(XBs YR) s 125 7 
PUT SPRITE 3s (XBs YR+17)s6s8 
IF VDP(8) AND 32 THEN PD=1 
RETURN 


REM #*#& ACHTERGROND GELUID ##x 
IF GD £* 1 THEN 790 

FOR 1 = @ TO 13 

SOUND I+G(IsGK) 

NEXT 1 

RETURN 


REM xx OPTELLEN xxx 

Gi w INICF/Z # 1) * 3 

A = FNA(G1) 5 B = FNA(GI) 
Cz At+tB:Ke=t 

GOSUR 610 

RETURN 


REM sx AFTREKKEN 

Gls INTIP/ZE 4) % 3 

EF Gl 2 5 THEN GL =.Gl S= 5 
A = FNA(G1) : B = FNA(GI) 
C=A+B : A=C 1 C=zA-R : K = 2 
GOSUR 614 

RETURN 


REM #x% VERMENIGVULDIGEN wat 
Gi= 10 1 IFF £ 5 THEN 990 


EEE NG NRN NMG DAT UE NEEN NS ig Mer Ie Ki Mi MS Wis MG NE Mi EL Gt WW Nier WEE Vit Ee Wir ii MEE Ae He Wi NS ie Nr EEE Wei 


NP Gl = G1' + F 


98 A 


1000 
1010 
10270 
10350 
1940 
105% 
1060 
1470 
1488 
1090 
1128 
1110 
1120 
11350 
1140 
1150 
11460 
1170 
1180 
1190 
1700 
1210 
1720 
1730 
1240 
1250 
1760 
1270 
14:80 
1790 
1302 
1310 
1370 
1530 
1340 
1550 
13608 
1370 
1380 
1393 
1400 
1410 
1470 
1450 
1440 
1450 
1468 
1470 
1480 
1490 
1520 
1510 
1520 
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= FNA(GI) &£ B = FNA(G1) 
C=Ax*BaB:kKe 3 

GOSURB 61 

RETURN 

REM xxx DELEN #x% 

GOSUR 970 EREM 2% VERMENIG 
A= C 8 C = A/B 8 K= 4 

RETURN 

REM 4% OPGAAF-L Hex 

B& STR$ (A) +AE(K) STR (BR) 


B$ = B$ + "=,," 

L = INSTR(BS:",.") 
GOSUB 610 

RETURN 


REM sx OPGAAF-E Ki 


H=Bt:Be=CtC=H 
B& = STRE(A) HAE(K) 
BE = BE + "‚.="4STRE(B) 


L = INSTR(R$s",,") 

GOSUB 61 

RE TURN 

REM 4% TEKSTRIJ ##% 

FOR J = 1 TO LEN(AS) 
C$=MID$(ABs Js 1) 8 XZ = JHO-A+XE 
DRAW "BM=X33se=Yi25" & PRINT #1: C% 
IF SP <> @ THEN GOSUB 412 

NEXT J 

RETURN 


REM ##& OPHAAL HH 

TIME=O 7 Ste"! à LED : WED 
L4 = L#B4+75 8 GOSUR 610 
LINE(85s 155) (257170) 5 4 BF 
DRAW"RBM85s 457" 5 PRINT HisP& 
GOSUB 418 £ DUMMY = USR1 (4) 

L3 = (LL) BH77 î Q = TIME 

IF LZ > 1 THEN L3=l.3-8 

DRAW" BMz=l35s 167" 8 PRINTHIs "4" 
IF PD = 1 THEN 1610 

AS=INKEY$ : IF Ag="" THEN A$="@" 
IF A& = "2" THEN 1619 

H = INSTR(E$sAS) : GOSUR 610 
YVaYt,4 REM daalenelheid 
IF H e= B OR H e= 11 THEN 1570 
IF H £> 12 THEN 1510 

Abz="" 2 IF LZ=0 THEN 15402 
Liset 5 IF LZ=0 THEN S$="" 
IF LES: THEN 5% = LEFT$(S$s LE) 
St=rShtAB t Lel Z4LEN(AS) 

GOSUE 61A :REM #ex ROTOR 


NG ER Ke EENS Bi We Eel EW Die Me Sn En Mn hr Ms Dr Me Ar De Be Hie Bema Sette Dinh a Dine Bin Salin Mili an ian | 


Zos 
Z4A8 
z651 
zaaá4 
SIT 
CAL 


2455 


1530 
1544 
1550 
1560 
1570 
1580 
1590 
1600 
1618 
1620 
1630 
1640 
1650 
1640 
16708 
1689 
1690 
1700 
1718 
17:20 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1818 
1820 
1830 
1840 
1850 
1860 
1870 
1894 
18390 
1900 
1910 
1920 
1934 
1940 
1950 
1940 
1970 
1988 
1990 
2400 
2010 
2020 
2030 
2040 
2050 
2060 
2070 


IF L2>2 THEN S$="" sL2= 
LINE(L4s 155) -(L4+16s 170) s4s RF 
BE=LEFT$(SER",."s 2) £ GOSUBR 6108 
DRAW" BM=L45s 157" :PRINT#IsB$ 

T3 = T2#58 — TIME 

IF H Xe 11 AND TZ: @ THEN 1380 
S = VAL("Z"+5$6) £ GOSUR 610 

W e= 1 

RETURN 


REM xxx BEELDSCHERM ##x 
DUMMY = USR3(0) 

COLOR 1551554 6 CLS 

LINE (@s150)-(255s 190): 4, BF 
LINE (@s125)-(2555 125) s4 


V2= 135 £ X2 = 28 £ COLOR 15 
A$ = "Rezultaat £" # GOSUR 1750 
A$& = "Wat moet ap de puntiez" 
A$ = A$ + " staan 7" 


20 t YE = 188 £ GOSUR 1250 
GK=el £ GOSUB 75A :REM #xx GELUID 
DUMMY = USR4(4) 

RETURN 


REM #xx GOED/FOUT #ex 

IF W=@B OR PD=1 THEN 1954 

Di=i A$="GOED" % D$=A1% 

IF S C THEN 1820 

Di=-1i £ A$="FOUT" : D$ = A2$ 
Fi=Fi+Dt : IF F1<1 THEN F1=3 
LINE (85s132)-(130s 144) s 41 BF 
DRAW "BM30,135" 7 PRINT#1sF1 
XZ=20A : YZ=157 £ GOSUR 1250 
DUMMY=USRZ(O) :REM reset geluid 
IF GD = 1 THEN PLAY D®% 

IF PLAY() = 1 THEN 1880 

FOR 1 = í TO 10 

Von Vr Diet 

FOR J=i TO 58 : NEXT J 

GOSUR 410 

NEXT T 

DUMMY=USRZ(0) 7 GK=t £ GOSUR 750 
RETURN 


U. 


REM #xx VRAAG Kx 

F = INT(F1/18+41) £ H = F 

IF F > 8 THEN F = 6 

IF F & 4 THEN H = FNA(4) 

ON H GOSUB 820,80, 970: 1050 

IF F < 5 THEN H=i ELSE H=FNA(Z) 
ON H GOSUR 1100:1170 

RETURN 


REM #&x* BOTSING #4 
DUMMY = USRZ(0) : GK=Z 


ie Hin in Man Thin iin in Va en Win Me B a in Mn ee Me Pe nT en Me Ten nT nn Men Mn ln Me ni En en Win He in Me. Mi Min Ue oen en He Me Me He Me En Vn Ie 


7 gen er 
3116 
3138 
3207 
2391 
2978 
2913 
1797 
200 
1678 
1906 
2527 
2661 
3433 
2865 
2931 
3601 
3994 
2746 
3470 
754 
2468 
ZE34 
1818 
A44 
3048 
7965 
2668 
3047 
3239 
3257 
3354 
JEDE 
2744 
2979 
34634 
7564 
435 
040 
2455 
2322 
3738 
430 
2018 
746 
3043 
zal 
4109 
348 
3605 
3487 
ZS 
Z128 
2336 
3271 
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2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2188 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
22808 
2490 
2300 
2310 
2320 
2330 
340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
z4z0 
2430 
Z440 
2450 
24608 
2470 
2480 
2490 
2508 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
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FOR J = 1 TO 4 

GOSUB 758 EREM #x** GELUID 
FOR IT = 1 TO 240 

DY=USR3 (0) 

IF 1 MOD 5 = @ THEN DY=USR4(@) 
NEXT I 

NEXT J 

DY = USR4 (B) 


Fi=8 «: PD=8 % X=i2A : Y=147 
XR=40 £ YR=IZ € Wel 

GOSUB 1640 :REM #*« BEELDSCH 
RETURN 


REM 4% STUURMODULE Hek 
GOSURB 80 REM Ha INIT 
GOSUR 1548 :REM xx BEELDSCH 
GOSUR 1988 :REM ##% VRAAG 
GOSUB 1330 REM ##** OPHAAL 
GOSUB 1780 :REM sx GOED/FOUT 
IF PD = 1 THEN GOSUR 2070 

IE W Zò @ THEN 2240 


COLOR 155454 : SCREEN @ 

DUMMY = USRZ(A) 

END 

REM 99) INTERNE DATAFILE #99 
DATA 8 REM aantal sprites 


REM @) SPRITE 1 heli=-vaar 1 va 
DATA As 1763: 15 35 15 

DATA Z4s16s16s24s17s7 

DATA 4114500: Qs Q 

DATA 1971178: 19E 740 745 B 

DATA Bs 54 4Es 24e Be 11E 

DATA As 

DATA 1432 z:REM checksum 

REM d SPRITE £ heli=vaar 2 En 
DATA @s@s 3s 153515 

DATA Z4s16s14sZ4s 17 

DATA 4e 14: Os Ds A 

DATA 2527s127851927s 240: 2458 

DATA 852745 48s 2248 374 117 

DATA @:@ 

DATA 1431 REM checksum 


REM 99 SPRITE 3 heli=zii 1 da 
DATA 0s0s63:1s 3: 31 

DATA 97,1295131s1354 255163 

DATA 16512750: 8: 0: A 

DATA 1924127951944 2551250: 244 
DATA 197:197:128:128: 128: 192 
DATA @:@ 


ENE NE ENE NG NEN Vi t  MEE NNS Wi WE VOREN ING Bil ONE NG WN EREN ME Hi WETEN MEENEEM WEN NE Ni Wi Bi Wie Ds Di Gin A 


Z710 
z630 
2823 
2758 
3474 
ZAEZ 
pb PC 
2799 
341 
3121 
2161 
2670 
2258 
2406 
2748 
2817 
2834 
2833 
z85 7 
be 
z183 
35E1 
3186 
2525 
z378 
2338 
Ze1& 
2448 
ze98 
2478 
z656 
3594 
J46& 
deg 
367 
bs dn, 
z865 
2954 
2518 
2745 
3331 
4556 
3347 
3734 
34689 
2952 
33 
z608 
za36 
3473 
312 
3541 
4033 
4845 
3042 


2630 
z640 
z650 
2640 
26708 
2680 
z690 
2700 
2718 
2720 
2730 
2740 
2750 
27460 
277 
27808 
2790 
28300 
2810 
z820 
2830 
z84 mn 
2850 
2860 
2870 
2880 
2390 
2900 
2910 
z92a 
2950 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3050 
3040 
3050 
3060 
3070 
3088 
300 
3100 
3118 
3120 
3130 
3140 
3150 
31460 
3178 
3180 


DATA 


3275 :REM checksum 


REM 9) SPRITE 4 heli=zii Z da 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


MsAs3s1s3s 31 
97,1295131: 135: 255: 63 
16: 127: A: 0: A: A 

E51 31945 255 250s 741 
197,192,128,12781 1281 192 
B: A 

3277 REM checksum 


REM 9à SPRITE 5 heli=schuin t 99 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


@sAs 3514555: 199 
15,515671671135: 143 
Phr 14e 77e 4 
30s5As A1 2248 1921128 
192:128: 19252741 4Bs 197 
As A 

2708 :REM checksum 


REM @® SPRITE & heli=schuin 2 @ò 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Ass 3s14s7s7 
15,51567s47s155s 145 
Phs 124 7,28: 484 194 
305259: 274: 1921 178 
197128: 197 241 4B8s 192 
OQ 

2707 REM checksum 


REM 99 SPRITE 7 bladeren haaom @& 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


15e ALs bs 127 1271255 
255,255s 255: 255: 255s 255 
1275635635 3117745 248 
E54 254254 25E s 2485 248 
Z48s 248 ZAP E54 25e 57 
Z4Bs 240 

5410 


REM @ò SPRITE 8 ztam kaam ga 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Js Js Zes Js Js 3 

Se As 3e 3e 3e 3 

Js Js 31e 3151925192 
1941924192119 1970 197 
197:192,1975 1921975 192 
z48: 248 

3288 


REM A& GELUID HELI #8 


DATA 
DATA 
DATA 


176:23: 2001525145: 38 
Z7s32s16s 26995 20 
Zs14 


REM @® GELUID EXPLOSIE 28 


DATA 


As A: Ass A: A 


DATA 1652116516: 161 7% 
DATA 150: 2 


EE EEE EP NN: NE Wi ME ME Wi Wi, ESE Ae Wi Vr Vi, Mt in Pa hole: Mic Mk io Be in We tin den ii Te Ke Me Mn Mi Me En Te HEN EA 


L$ Bed | 
2698 
zIr6 
3509 
4003 
3631 
4113 
4135 
3132 
3213 
27838 
3014 
37469 
3939 
3794 
4054 
4175 
3222 
3295 
2878 
3104 
3700 
A7 
404 
4148 
4765 
1. be B 
3585 
2960 
16 
420,3 
457 
4276 
4396 
4404 
Z414 
3475 
3058 
3235 
3826 
3838 
4156 
4488 
4498 
EE Sy an Be 
3575 
3148 
3374 
43278 
4194 
347 
3198 
3426 
3954 
4184 
37A4 
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Voorbeeld 


Mat moet op de puntjes staan 7 


3.4 Welk teken 


Op het beeldscherm verschijnt een planeet met ringen en satellieten. Deze sa- 
tellieten zijn het plus-, min-, vermenigvuldig- en het deelteken. Er onder staat 
een robot met een oplichtend vizier. 

Onder in het scherm in de lichtkleurige balk staat een opgave, waarvan het te- 
ken ontbreekt. Op die plaats staat een knipperend vraagteken. Het is de bedoe- 
ling dat de robot naar voren of naar achteren wordt gestuurd. Wanneer het 
teken van zwart in wit verandert, kan het worden geactiveerd door op de RE- 
TURN-toets te drukken. Het gekozen teken komt dan op de plaats van het 
vraagteken te staan. U moet wel opschieten met het indrukken van de RE- 
TURN-toets, want de robot loopt wel door. U heeft maar eventjes tijd. Met de 
cursortoetsen kunt u de robot ook weer terugsturen. 

In het begin zijn de opgaven eenvoudig, maar het niveau stijgt als men een 
aantal opgaven goed beantwoord heeft. Dit niveaumechanisme kan ook wor- 
den uitgeschakeld. In de module ‘Initialiseren’ komt de variabele NI voor. Deze 
variabele staat nu op nul. Dit betekent dat het niveau door het programma 
wordt bepaald. U kunt ook de variabele NI een waarde geven. Eén is het laagste 
niveau en zes het hoogste. 

In het programma is de bedenktijd ook weer gelimiteerd. De variabele T2 die 
dit regelt, vindt u ook in de module ‘Initialiseren’. De instelling staat nu op vijf 
seconden. Indien u vindt dat deze bedenktijd naar acht seconden zou moeten, 
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verandert u de waarde vijf in de waarde acht. De variabele TS bepaalt de maxi- 
male speeltijd. Mocht de speler eerder willen ophouden dan drukt hij de func- 
tietoets F1 in zodra het programma op een antwoord staat te wachten. Na het 
indrukken van de functietoets wordt de resultaatmodule gestart en verschijnen 
de resultaten op het scherm. 

Zoals ai eerder is uitgelegd, komt in dit programma de variabele GD voor. Met 
behulp van het veranderen van de waarde één in nul kunt u het geluid uitscha- 
kelen. Geeft u de variabele zijn oorspronkelijke waarde, dan weerklinkt het ge- 
luid weer. In de strings A1$, A2$ en MS zijn de melodietjes die het programma 
gebruikt, opgeslagen. 

Suggestie: In de module ‘Resultaat’ wordt uitsluitend het totaalresultaat gege- 
ven. U krijgt een beter inzicht in het resultaat, wanneer u dit kunt uitsplitsen 
naar optel-, aftrek-, vermenigvuldig- en deelsommen. Aan de hand van het re- 
sultaat per soort opgave krijgt u een betere indruk. Deze resultaten kunt u het 
beste in een matrix bijhouden. De variabele KZ bepaalt het soort opgave en in 
de module ‘Goed/fout’ wordt het resultaat van het antwoord bepaald. 


Programma 

10 KEM 1x WELK TEKEN Hex / 228 
28 CLEAR 5090 / 576 
3@ DIM K(15)s55(5) Pe 803 
48 KEY OFF / 497 
5Q GOTO 2580 - / 570 
68 : / 118 
70 REM #*x INITIALISEREN #4 / 346 
8Q SCREEN @ : LOCATE 2s1@ / 1265 
SQ PRINT "eventies Geduld a.u.b." / 2566 
198 GOSUB 540 REM wee GROTE KARAK / 639 
118 COLOR 15555 £ SCREEN 213 / 1387 
128 OPEN "GRP:" FOR OUTPUT AS #1 / 1745 
138 A$ = "[F-1] = Stappen zPel '* / 2111 
140 XZ = 20 : YÀ = BA £ GOSUR 1120 / 1437 
150 E$ = CHREÉ(ZI)+CHRE (28) +CHRE ( 32) / 1730 
164 E$ = E& + CHR$(13) / 912 
178 H$ = STRINGS(10: CHRE (37) ) / 1507 
188 A1$ = "V1ISL9S11M55ABE" / 1344 
198 AZ$ = "V1IS5L9S8BM3IGFE" / 1325 
208 M$ = "T145V1SLIS1IMSSFGAHAGGFR" / 2000 
Z18 M$ = M$ + "+FGALALGGERG" / 1357 
220 KEY 19"2* / 677 
238 DEF USRI=&HI56 :REM kevkbrd leeg / 1943 
240 DEF USRZ=&HID :REM geluid leeg / 1023 
z5@ DEF USR3=&H41 REM schrm disable / 1030 
268 DEF USR4=EH44 :REM schrm enable / 1844 
270 DEF FNA(A) = INTARND(ID%A#1) / 1770 
2838 GOSUB 77@ REM #4 SPRITES / ZZ 
298 FOR 1 = 1 TÔ 5 / 90 
300 SPRITE$S(9+I)=S$(I) / 1395 
318 NEXT I / 702 
328 A1) = 20 s A(2) = 70 / 1092 
330 A(3) = 128 % Al4) = 178 / 1204 


X = 100 :REM x-caard 

Y = 58 REM v-caard 

Â = RND(-T IME) REM reset rrd 
GD = 1 :REM Geluid aan 
T2= 2 REM bedenktiid sec 
G = Qt T = OEREM Gaed/faut 

RT = @ REM resultaat 

NI = Q REM niva = AUTO 

TE = NI*1A REM punten 

TIME = @ REM klak = @ 

TS = 1200 REM zpeeltiid 

TS = TS «* 5A 

RETURN 

REM #xx SOUND Her 


RESTORE 2850 
FOR 1 = @ TO 13 

READ Gl £ SOUND I+GL 

NEXT 1 

RETURN 

REM #** GROTE KARAKTERS «a 
RESTORE 2800 

FOR 1 = B TO 15 

READ KC) 

NEXT 1 

REM «* KARARAKTERS 2#VERGROOT «« 
ST = BASE(2) 

Ch=" dk 2" 

FOR I = 1 TO LEN(C$) 

Afs=" ” 8 B$=" u [4 Yt= un 8 Z3=" Li 
C = ASC(MID$(C&s T+ 1)) 


FOR J = @ TO 7 

GE = VPEEK(ST+CH84J) 

G1 = INT(GE/16) 8 G# = GE MOD 16 
A$ = AS+CHRE(K(GID)+CHRE(K(GI)) 
B$ = BEHCHRE(K (GZ) ) +CHRE(K (GZ) ) 
NEXT J 

S$(I) = A$ + R$ 

NEXT I 

RETURN 

REM «xx SPRITES INLEZEN #*% 


RESTORE 2900 

READ SP REM aant sprites 
FOR J = 1 TO SP 

SD% = "* 8 5C = @ 

FOR I = 1 TO 32 

READ SD : SC = SC + SD 

SD& = SD& + CHR$(SD) 


NEXT I 
READ SD REM checksum 
IF SC = SD THEN 9104 


SCREEN @ £ COLOR 155454 
PRINT "Data van srrite"sJ5 


Ne TMN MOENS PE AENEIS INS MENENS NEST MEE NEE SSN ENE ENEN SE SLA A RSL A BEU AE A 


892 

08 

918 

Za 

930 

940 

950 

960 

270 

980 

990 

1004 
1018 
1020 
1850 
1040 
1450 
1060 
1872 
1288 
1890 
1108 
1118 
1128 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1700 
1218 
1220 
1230 
1240 
1250 
1260 
1270 
1288 
1290 
1500 
13108 
1320 
1330 
1340 
1350 
1562 
1370 
1380 
1394 
1400 
1410 
1424 
1430 


PRINT "zin foutief." 


STOP 

SPRITE$S(J) = SD$ 

NEXT J 

RETURN 

REM xx RIJDEN ROBOT #xr 


IF BR=1i THEN BR=@ ELSE PB=l 
XaX+XRS £ PP=D 

IF X<1 THEN X=0 : XB=1 

IF X>240 THEN X=540 t XB=-1 

FOR I = 1 TÔ 4 

2 = ABSCACID-X) 

IF Z < 28 THEN PP=ltL=15 ELSE L=i 
PUT SPRITE 9+Is (ACI) s ZA) ss PAI 
NEXT I 

PUT SPRITE 4s (Xs Y)sisi 

PUT SPRITE 3s (Xs Y+32)s 1s 2+BR 
PUT SPRITE Z1 (Xs Y)s144BBR1 4 

PUT SPRITE 1s(X-18sY+16)s 1555 
RETURN 

REM #*x TEKSTRIJ «+ 

FOR J = 1 TO LEN(AS) 
CH=MIDE(A®s Js 1) : X3 = J46-btXE 
DRAW "BM=X35s=YZ5" 8 PRINTHIsC$ 
NEXT J 

RE TURN 


REM xxx BEELDSCHERM ##% 
DUMMY = USRZ(O) sREM scherm uit 
COLOR 15555 8 CLS 

LINE (850) -(255s 109) s 4; RF 
LINE (@s110)-(255s 110) s 1 
LINE (@s111)-(255s 119) s 3: BF 
LINE (@:120)-(255s 120): 1 
LINE (@s121)-(2555159)s 11: BF 
LINE (@s160)-(255, 1460): 1 
LINE (@s161)-(255:189) s 2s BF 
LINE(@:s9B)-(255s 108): 10: BF 
LINE (8s190)-(255s 190) s 1 

REM #*# PLANEET «+ 

CIRCLE (183:18)5s6:3s 1As1s 1.4 
PAINT (183518): 10 

FOR I = 4 TO 15 STEP 3 
CIRCLE (183,18) 167+1Is15s11.4 
NEXT I 

A$="Scare 8" & COLOR 1 
XZ=178 8 YZ=El1Z 8 GOSUR 11270 
A$="Welk teken 7" 

XE=20 : YZ = 167 : GOSUR 1120 
FOR 1 1 TO 4 

J=9+I £ L= 1#50-30 

PUT SPRITE Js (Ls 20) s1s JT 

NEXT 1 


. Ie 


EE MENE ME Me NT NE SG Mi WEE EM NM MAT in EG a ON Mn Mit in MN Dir WMA NG Pi Wir Mir Mi Di Mi Wis Met MP ei ME Mi Mie Nr U Di Mi Wi 


1440 
1450 
1460 
1470 
1480 
1490 
1500 
1519 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
16608 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1758 
1760 
1770 
1780 
1798 
1808 
1810 
1820 
1830 
1840 
18540 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1940 
1970 
1980 
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DUMMY = USR4(B) EREM scherm aan 
RETURN 


REM &&x GOED/FOUT «xx 

PUT SPRITE 9s(182:1278)s 1: SP 
IF W=@ THEN 1720 

RH=1 & A$="Gaed" z: D$=A1$ 

IF KZ+9 = SP THEN 1530 

RH=-1 t A$="Faut" : D$ = AZ$ 
T=T+1 & IF RH=t THEN G=Gt1 
IF NI = @ THEN TE=TE+RH 

IF TE<@ THEN TE=0 

REM x** TEKEN IN SOM «# 
DX=(182-A(KZI)/108 : PX=A(KZ) 
DUMMY = USRZ(0) 

IF GD=1 THEN GOSUR 490 

FOR IT = 2@ TO 128 

PUT SPRITE 8: (PX: 1)s8:KZ+9 


IF IT <> 108 THEN 1640 

PUT SPRITE 9: (102128) s@: SP 
PX=PX+DX 

NEXT 1 

COLOR 1 

LINE (215s111)-(255,119)s 3; BF 


DRAW "BM215,112" £ PRINT#1+G 
X2=20 £ Y2=112 & GOSUB 1120 
DUMMY=USR2(0) :REM reset geluid 
IF GD = 1 THEN PLAY D$ 

RE TURN 


REM xx OPTELLEN se 
C = A +t B 
RETURN 


REM xxx AFTREKKEN #xx 
C=A+R : A=zC : C = A-R 
RETURN 


REM sex VERMENIGVULDIGEN wa 
C = A x%* RBR 

RETURN 

REM #x DELEN # 

C=A&B : A=C £ C=A/RB 

RETURN 


REM #%% OPGAVE sex 

IF TE < 1@ THEN NT=2 ELSE NT=4 
KZ=FNA(NT) : QG=INT(TE/5+1)%5 

IF KZ > 2 AND TE < 58 THEN Q=10 
IF KZ > Z AND TE > 5@ THEN G=15 
A = FNA(G) & B = FNA(G) 

ON KZ GOSUR 1750, 1790: 1830: 1870 
A$S=STR$(A) : RB&=STR$(R) 
CH=STRE(C) : DE=LEFTS (HES, 7) 


eN A Ne NE So WE Ke MD NS Mn re MN Ne Mn Ne MP Nt te A ie RN NE DE EE ANETTA ONE ree Ki Nrd 


1990 
2040 
2010 
2020 
2030 
2840 
2050 
2060 
2470 
2280 
2090 
2100 
2110 
7120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
zz00 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2500 
2310 
ZA 
550 
Z340 
2350 
2360 
2370 
2380 
259 
2400 
2410 
2420 
2430 
440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 


L=iB-LEN(AS) &: GE=ZLEFT$ (HES LL) 
GEZGEHAEIDEAREL" == "ACH 
RETURN 


REM sx SCHERM OPBOUWEN dee 
LINE (@,121)-(2555159)s11sBF 
LINE (@s111)-(50s 119) 3, BF 
PUT SPRITE 9» (107: 178) s B: SP 
PUT SPRITE 8s{(182:128)s 1514 
X2=30 t Y2=138 5 A$=G$ 

GOSUB 1120 :REM ##* TEKSTRIJ 
RETURN 


REM xx ANTWOORD #xx 

GESUB 2040 EREM Hex SCHERM OPR 
T5 = TIME + T2#50 

CR=1 : W=Z £ DUMMY=USRI (0) 

IF TS-TIME<=@ THEN 2300 

GOSUR 940 

IF CR=1 THEN CR=15 ELSE CR=1 
PUT SPRITE 8: (1027128): CR: 14 
IS=INKEY$ : IF I$="" THEN I$="&" 
IF I$ = "2?" THEN 2500 

GOSUB 960 : RS=INSTR(ESs: IS) 

IF RS > 2 THEN SP=PP+9 

IF RS=@ OR RS2>2 THEN 2260 

IF RS = 1 THEN XB=-1 ELSE XB=1 
T3 = T5 — TIME : GOSUR 960 

IF T3:-@ AND RS5<3 THEN 2160 

IF RS=8 OR PP=4 THEN SP=14 

W= 1 

PUT SPRITE 2s(XsY)s6s4 

RETURN 


REM xxx RESULTAAT “ek 

RT=A £ COLOR 1 

PUT SPRITE 9s (10421178) s A: SP 
PUT SPRITE 8: (142: 128):s@:SP 

IF T=@ AND G=@ THEN 27390 
RT=INT(G#100/T-+. 5) 

LINE (@s 1b1)-(255s 198) «21 RF 
LINE (@s1271)-(255s 159) s 11 BF 
A$=" Aantal arpdaven 8" + STRE(T) 
2=20 8 Y2=167 £ GOSUB 1120 
A$=" Aantal Oned En + SERSCG) 
X2=20 £ YZ=17Z 8 GOSUB 1120 
Af="Percentade Gaed:s" + STRE(RT) 
Xi=rZ0 8 VZ=18P ft GOSUB 11270 
DUMMY=USRE (B) 

LINE (@s111)-(1404119)s 3, RF 
A$="Druk een taets in t* 

XZ=20 8 YZ2=117 £ GOSUR 1120 

IF RT>75 AND GD=1 THEN PLAY M$ 
IF PLAY(A) = —1 THEN 2520 

DUMMY = USR1 (A) 


he Min hi See Mi MM is. in ln Mk Mk en en he Ben Mi ie in. Me ee Me Ni tn Ke Me en Bn en Mi Ee de Pe en Mie Me de Vin in Mn Vn Mi Vr in Me Win ie Me 


2540 
2550 
2560 
2570 
2584 
2590 
24600 
ze10 
z6z0 
z630 
z640 
z650 
266% 
2670 
2680 
2690 
2700 
2710 
2720 
z730 
z740 
2750 
Z760 
z770 
2780 
z790 
28300 
z810 
z820 
2830 
z340 
z850 
28360 
237 
2880 
ZRIA 
2940 
z910 
2970 
2930 
ZA 
2950 
60 
2974 
z,00 
299 
JAAA 
3013 
3420 
3030 
3040 
3450 
3440 
3070 
3080 
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AS=INKEY$ «: IF A$z="" THEN 2540 
RETURN 


REM Her STUURMODULE Hear 
GOSUE 80 REM Hek INIT 
GOSUR 1190 :REM %#e BEELDSCH 
GOEUB 1918 :REM #** OPGAVE 
GOSUR 2150 2REM #x*x ANTWOORD 
GOSUB 1480 REM #xx GOED/FOUT 
IF WS2A THEN 2600 

GOSUB Z34A :REM «xx RESULTAAT 
COLOR 155454 t SCREEN @ 

DUMMY = USRZ(O) £ CLOSE #1 
LOCATE 210 

PRINT "Nag een keer SJ/NA"5 
PRINT * "8 LOCATE 22:10 
A& = INPUTS(1) 

H = INSTR("JiNn"s AS) 

IF H = @ THEN #674 

IF H << 3 THEN #58 

END 


REM d99 INTERNE DATAFILE @98 


REM @& HULPWAARDEMN K(I) 99 
DATA @s3s 1451544081 51 

DATA &As43s 1971 1951 704 
DATA 207: 240: 7454 252255 
REM dà SOUNDDATA dà 

DATA Z4As Ss As Os As As Ds 67 
DATA 1ás1ds@Ar176sá4bs 14 


REM dd PLAATJES @& 


DATA 5 REM aantal sprites 
REM A9 SPRITE 1 rame d® 

DATA 63s 177514272178 1271 6 
DATA 14131565 1777551255 

DATA 2551455 4554 755 195: 245 


DATA E25 EED De 195 151 
DATA LEDs Z4Es ZE s Ebls 25E 240 


DATA 240: 240 
DATA 5617 :REM checksum 


REM òò SPRITE Z underzstel 9 
DATA 255s127s63s 31s 315 255 
DATA 2191219512710: 0: Q 

DATA @s Os As Bs 2405 274 

DATA 1974128: 128s 22451761176 
DATA Z4As As As As Ds A 

DATA Qs 

DATA 3055 :REM checksum 


ENEN WENEN WEN WE IE WEE EVE USE WS SE KE SE Wi Bi SE BENE HE IE EN KE B Ie ir Mi MEE U ni Di 


4059 
3034 
z618 
2846 
JAA 
3177 
187 
ZEIL 
JAG 
3533 
3225 
3881 
4057 
341 
4548 
4054 
34E 
3905 
3554 
3566 
den Ke] 
z308 
„818 
3046 
z838 
3446 
4 
34 
4043 
z8885 
Jt16 
40357 
531 
ZIE 
3156 
948 
5255 
7968 
3174 
4258 
LER EL] 
46 
4174 
438 
Z&lA4 
347 
ZA5A 
3286 
4293 
4147 
4036 
4486 
332 
JAP 
367 


3090 : 

3108 REM 9) SPRITE 3 anderzstel A8 
3118 DATA 25521775635 314 315 127 
3128 DATA 23742374555 0: 0: Q 
3138 DATA @As As Ds Ds 2405 274 

3148 DATA 1977128: 128: 240: 208: 208 
3158 DATA 227410: Os As As A 

3160 DATA Qs 

3178 DATA 3155 :REM checksum 
3180 : 

3198 REM 99 SPRITE 4 uden D& 
3200 DATA AsDs 748 2545 7485 Q 
3410 DATA @s@:0As A: Qs A 

3228 DATA 0525550: A: 0: Q 

3230 DATA 050: 0s0: A: Q 

SE40 DATA Bs0s As Ds: As 240 

3250 DATA O1 

3260 DATA 1245 :REM checksum 
3278 £ 

3580 REM và SPRITE 5 arm 95 
3290 DATA 05010: Ds As Q 

3300 DATA @s@:A: 0: As A 

3318 DATA @s rs As 7s 7 

J3EA DATA 5e 72547050 7 

3430 DATA 5s7sZa1ls1sd 

3340 DATA @:@ 

3350 DATA 77 :REM checksum 


Voorbeeld 


NG EN MEENT NES GENE Mi OMG VNU Mi AE U Mit, MD EN is Ne ie Wi Nie Win Ake 


3148 
3376 
4381 
4234 
4126 
4566 
4044 
3582 
3658 
3238 
34bb 
4317 
4020 
4118 
40202 
4132 
3672 
3745 
3328 
3556 
40802 
4090 
4114 
4146 
4147 
37462 
4737 


85 


3.5 Het ontbrekende getal 


Op het beeldscherm verschijnen negen vakken. In acht vakken staat een getal 
en in één vak een vraagteken. Aan de hand van de acht gegeven getallen, moet 
het ontbrekende getal worden afgeleid. In het begin is het tamelijk eenvoudig. 
Dan is het een opeenvolgende rij getallen. Maar ook dit programma werkt met 
een niveau-indicator. Na een aantal goed beantwoorde vragen stijgt het ni- 
veau en worden de opgaven complexer. Wanneer een opgave beantwoord is, 
geeft een mannetje met een vlag aan of de opgave goed of fout beantwoord is 
met een daarbij passend melodietje. 

In dit programma is geen bedenktijd verwerkt. Wanneer u dit wel wenst, kun- 
nen andere programma’s als voorbeeld dienen. In het programma komt een 
wachtlus voor om de uitkomst van de opgave een tijdje op het beeldscherm te 
laten staan. Deze wachtlus heeft de vorm FOR | = 1 TO (2-H)*750: NEXT |. 
Deze regel vindt u achteraan in de module ‘Invoer’. Vindt u de wachttijd te lang 
dan verandert u het getal 750 in een lagere waarde. Vindt u het te kort dan ver- 
groot u het getal 750. 

In dit programma wordt gebruik gemaakt van het snel wisselen van sprites om 
te suggereren dat het mannetje daadwerkelijk loopt. Het is misschien best eens 
aardig om de sprites ieder afzonderlijk op het scherm te zetten, zodat u kunt 
zien hoe deze in elkaar gezet zijn. 


Programma 

18 REM #%*#* HET ONTBREKENDE GETAL. #%% / 228 
23 KEY OFF / 47E 
38 CLEAR 1000 / 582 
48 DIM A(G)aM$(13) Â 795 
58 COLOR 4199 / ARI 
&A SCREEN 3 / 559 
70 OPEN "GRP:" FOR OUTPUT AS #1 / 1695 
83A GOTO 248A / 601 
MB : / 148 
1AA REM xx INITIALISEREN #** / 376 
118 CLS £ TI = RND(-TIME) / 1269 
120 COLOR 155454 / 797 
132 SCREEN #3 / 723 
148 GD = 1 : REM 1 = GELUID AAN / 389 
158 TG = @ / 414 
148 TB = 5 :REM BONUS SPRINGEN / z4 
178 T= 0 tt: G=0t:Z=3 / 361 
180 F$ = CHR$(13) + CHR$(B) / 222 
190 E$ = "A123456789-" + F$ / 1143 
208 GOSUB 248 : GOSUR 430 / 1327 
218 RETURN / 4690 
220 : id 278 
230 REM #x*x INLEZEN SPRITES ##% / 506 
248 RESTORE 2800 / 0 
258 READ SP £ REM AANTAL SPRITES / 697 
268 FOR J = 1 TÔ SP / 1001 
270 SD& = "" : SC = 3 / JA 
Z88 FOR I = 1 TO 32 / 958 


READ SD £ SC = SC + SD 
SD$ = SD$ + CHR$(SD) 
NEXT TI 

READ SD 

IF SC = SD THEN 38@ 
SCREEN @ 

PRINT "Data van sprite "5J5 
PRINT "zin fautief” 
STOP 

SPRITE$(J) = SD% 

NEXT J 

RETURN 


REM #&x DATA MUZIEK LEZEN xe 
RESTORE 3820 

FOR I= 1 TO 43 

READ M$(I) 

NEXT I 

RETURN 


REM 2% OPLOPEND ##* 

B = INT(RMND(I) « Y + 1) 

R = INT(RND(I) #& Z/Z + 1) 
IF B > 10QA THEN 500 

FOR I= 1 TO 9 

ACI) = B + R « I 

NEXT I 

RETURN 


REM #xx AFDALEND &ex 

FOR I= 1 TO 9 

GOSUR 508 : REM ##* OPLOPEND 
FOR Ie 1 TO 5 

H = A{1Q-I) : A(1@-I) = AI) 
ACI) = H 

NEXT I 

RETURN 


REM xx STAPGROOTTE 2 
FOR I= J TO 18 = J STEP 2 
ACI) = 8 +R 8 5 = ACI) 
NEXT 1 

RETURN 

REM xe DUBBELE RIJ #&*% 
FORT mm 12 

B = INT(RND(I) & Z + 1) 

R = INT(RND(I) %& 7/2 + 1) 
IF RND(1)>.5 OR N=3 THEN 880 
RAR # si 


IF B + R&9 £ 1 THEN B = B — R&18 


GOSUB 680 
NEXT J 
RETURN 


Ni ME 5 EN ir, SAE MENE NE Ni Vr Wii ME ir ef NEL PA MOES ME NEN et NN Por WG Mi Bak Wi Se MV, Nt Ni Me Nr SE IEN Nei Mi Ni Mr LN Ni Mi 


840 
850 
860 
870 
880 
890 
0 
910 
920 
930 
940 
950 
960 
970 
980 
99 
AAA 
1019 
1020 
1434 
1040 
1050 
1068 
1970 
1480 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1168 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
12508 
1260 
12708 
1280 
1290 
1300 
1310 
1320 
1330 


1340 | 


1350 


REM #%& OPGAVE ar 
Y = INT(Z/S + 1) : REM NIVEAU 
IF Y > 4 THEN Y = 4 
NM = INTARND(I) & Y + 1) 
ON M GOSUR 500:6001 740: 740 
X = INT(RND(1) %& 9 + 1) 
RETURN 
REM zxr OPENING xx 
DEFUSRI = &H41 
DEFUSRZ = &H44 
DUMMY = USR1 (A) 
os = * Het * 
PRESET (28,10) : PRINT #1:6% 
Ob = "antbre-" 
PRESET (28,50) £ PRINT #1:6% 
O5 = * kende " 
PRESET (28490) &£ PRINT #1 sG% 
O5 = “ Getal * 
PRESET(281 130) : PRINT #1s0$ 
DUMMY = USRZ() 
FOR I = 1 TO 2000 : NEXT I 
RETURN 


REM #xxr KOP waer 

CLS : REM SCHERM WISSEN 
O5 = "& Het antbrekende Getal «" 
PRESET (33,0) &£ PRINT #1:Q% 
RETURN 

REM zer SCHERM OPBOUWEN xx 
GOSUB 1084 : REM KOP 

PRESET (57512) 

PRINT #1s "aantal ardaven :"5 


PRINT #1+T 

PRESET (57:20) 

PRINT #1s"Gvede antwaarden:"5 
PRINT #1:G 

0% = "Wat maet er " 

O5 = O5 + "indevuld warden?" 


PRESET (25132) t PRINT #1s0% 
LINE (31s44)=-(231560)s 9, B 
LINE (51s68)-(2115:92)s «PR 
FOR I = 71 TO 191 STEP 40 
LINE (Is44)-({Ts68) «> 

NEXT I 

FOR I = 91 TÔ 171 STEP 48 
LINE {1:68)-(1s92)+9 


= A 
J=8:Ke=g 
+1 <> X THEN 1420 
IF I > 4 THEN J = 24 : K = 20 
F = K-9+((T MOD 5) +1) #40 
LINE(Fs45+J)-(F+40: 6841) s 91 BF 
PRESET (F+185s 54+) 


hen Mn ie Bn. MoM. vane Ikon ni in aise ME Nen iin inc Men Ki sn ie in Mi Me vin ie A We Te ne in ie Heen He B Te he eh me | 


1116 
1598 
1711 

1904 
ZA 
19A4 

1380 
1448 
14648 
1712 
1875 
1413 
2455 
1911 

Z479 
181 
2503 
1845 
2566 
1914 
2261 

1530 
1118 
1346 
1306 
3531 
Z54E 
1590 
1178 
1406 
1725 
1949 
3343 
1779 
1978 
3537 
1796 
2504 
3238 
2726 
2506 
2519 
2463 


PRDR 
ed 


1672 
2493 
2353 
1787 
1507 
TAI 
2560 
Pin 44 
2457 
2974 
2412 


1390 
1400 
1410 

420 
1430 
1440 
1450 
14608 
1478 
1480 
1490 
1500 
1510 
1520 
1550 
1540 
1554 
1560 
1570 
1580 
1598 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1718 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
18530 
1840 
1850 
1860 
1870 
1880 
1890 
1904 
1910 
1920 
1930 


FX = F+17 t JX = J+4+54 
ERKENT 4472 OA Te X 
IF 1 > 8 THEN 1480 
J= 4: Ke=g 

IF IT > 4 THEN J = 24 : K = 20 
F = K-bt((I MOD 5)+1) #40 
PRESET (Fs54+J) 

PRINT H#1sA(I+1) : 1 = 1 + 1 
ER LC A THEN 1340 

RETIRN 


REM xxx INVOER #ar 
Gem U tf TRS MET Kdl 
PRESET (57: 100) 
PRINT #1s"Wat is ie amtwaard * 
PRESET (57: 108) 
PRINT #1s"Sstar = B> 72 "5 
mede ek À 
S& = 5% + T$ 
LINE(161s 148) -( 260: 116): 41 BF 
PRESET(161:188) : PRINT #1:5% 
T$ = INKEYS 
IF T$ = "* THEN 16048 
H = INSTR(ES: T$) 
IF H = @ THEN 1600 
IF H = 11 AND L > @ THEN 1600 
IF H <> 13 THEN 169@A 

< 1 THEN 1570 
L = L-Z 8 5% = LEFT$(S5$sL+1) 


IF H= 12 THEN T& = *"" 

IF H = 12 AND L = @Q THEN 1588 
IF re <> 14 is L = A THEN 1560 
S = VAL(S%$ 

IF 5 = @ THEN 1810 

Hess TeTetittZ=zZ=i 
IF S <> A(X) THEN 1774 

se RE OE EE 


ON H + 1 GOSUB 1840, 2070 
EZ 1 THEN Ze 

REM #% WACHTLUS #% 

FOR 1 = 1 TO (Z-H)#758 : NEXT 
RETURN 


REM Haex FOIJT Hek 
PRESET (414 1524) 

PRINT H#1sA(X) 5 

PRINT #1s"maest indevuld zin 
TG = Q : M= 13 

FOR 1 = 8 TO 208 STEP 20 

PUT SPRITE 4s (I-32s 168) s 217 
PUT SPRITE 5s{(Is1460)s 256 

PUT SPRITE 65 {({1+54s160)s 1155 
IF GD <21 THEN 1940 

PLAY "L64M1 200051 "+M$(M) 


hin in Roodt din in tina in isen: Sie Hin init a Sn ie: Mn Mie an ia in Mie en Ne Ve ie ni en Ne ee ME 


2637 
z413 
Rn SA 
1845 
2592 
2534 
2334 
2653 
2385 
1754 
1544 
1776 
2354 
2365 
3858 
2393 
3078 
1865 
2032 
3456 
3189 
2201 
2504 
z503 
2456 
2913 
2598 
2495 
z963 
1929 
ze17 
Z9800 
299 
z291 
257% 
2093 
2847 
z687 
2925 
26274 
ZZ 
3273 
z20 
1878 
2104 
z684 
2644 
4406 
Z430 
3037 
3394 
3258 
34& 
„gar 
3256 
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mmm 4 

FOR J = 1 TO 158 : NEXT J 
PUT SPRITE 4: (1-20: 160) s 31 7 
PUT SPRITE 5s(I+125160)s 356 
PUT SPRITE &s(I+44;140)s 1158 
FOR J = 1 TO 15@ £ NEXT J 
NEXT I 

PUT SPRITE 4: (250,160)s@: 7 
PUT SPRITE 5s(250:140)s0:6 
PUT SPRITE &s(250:1468):;0:8 
RETURN 


REM sx GOED ve 
LINE(FXs JX) -(FX+8s JX+8) s 91 BF 
PRESET (FX-14sJX)s 9 

PRINT #1sACIX+1) 

Ta EE oP ECM EL 

FOR 1 = -32 TO 208 STEP 20 
PUT SPRITE @s(1s128),9s 3 
PUT SPRITE 15 (1+32,128)s9s 2 
PUT SPRITE 2s (I+32:1468)s 9» 1 
IF GD <> 1 THEN 2170 

PLAY "L64M1200851 " +M$(M) 
PE 

FOR J = 1 TO 108 : NEXT J 
PUT SPRITE @s (I+12:128) +9: 3 
PUT SPRITE 1s(I+445128)s 95 2 
PUT SPRITE 21 {({1T+44s 1468) 5954 
FOR J = { TÔ 108 : NEXT J 
NEXT 1 

PUT SPRITE @s (250: 128): 0: 3 
PUT SPRITE 1: (2508, 128) + 8: 2 
PUT SPRITE 2: (250160) + Qs 4 


IF TG <> TB THEN 2300 
CLS : GOSUR 2510 

TG = @ 

RETURN 

: 

REM #xx RESULTAAT ### 


R= A 


PRESET (49 s 37) 

PRINT #1s"Percentade Gaed :"5 
IF R < 74 THEN 2450 

GOSUR 2510 

A$ = "" 8 PRESET (20: 180) 
PRINT #1s "Druk een taets in" 
AS=INKEY$ : IF A$="" THEN 2470 
RETURN 


IF T < 1 OR-G < 1 THEN 2360 

R = INT(G#100/T + .5) 

GOSUB 1080 : REM KOP 

PRESET (494 12) 

PRINT #15 "Aantal aPrgaven LRT 

PRESET (49 s 20) 

PRINT #1s"Gaede antwaarden :"5G 
R 


ND Me Mer BN MN He Mir A Nie Wir Mi, Mi Ve Mer Ain Uri Ns Mi We Wis Wi Wii Ms U Mis Wi WS Ue Mi We Mets oe We Uit ir ND. MEEL UE MS 


2249 
3129 
346 
3471 

3556 
3149 
2392 
3444 
3454 
3467 
2524 
2108 
2336 
3780 
3239 
3014 
2508 
3352 
3481 

4435 
3641 

3108 
3486 
2477 
3354 
3693 
3708 
3747 
3394 
2622 
3670 
3680 
3689 
3340 
3148 
2554 
2780 
zZ368 
2596 
2321 

33523 
3340 
2945 
3170 
4647 
3189 
4818 
3212 
4745 
3324 


" 3024 


3501 
hai 
3991 
260 


2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
z58g 
2590 
2600 
2618 
z620 
2630 
2640 
2650 
2660 
2670 
z680 
z690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
z830 
2840 
z85a 
2364 
2870 
28380 
z8r 
2900 
z910 
z920 
2930 
240 
z950 
z96A 
z970 
zeen 
2990 
3000 
3010 
3420 
3034 


REM #xx SPRINGEND MANNETJE xx 
FOR J = 1 TO 10 

PUT SPRITE @s(112596)s9s 9 
PUT SPRITE 15 (112:128)59; 18 
IF GD <> 1 THEN 2560 

PLAY "L64M1Z00085104D" 

FOR IT = 1 TO 108 : NEXT I 
PUT SPRITE @:(112:88);8: 9 
PUT SPRITE 1s(112,112):8s 11 
IF GD <> 1 THEN 2618 

PLAY "L&4M128005104G" 

FOR I = 1 TÔ 199 : NEXT I 
NEXT J 

PUT SPRITE Qs (112580) : 4: 9 
PUT SPRITE 1s(112s112)s@s 11 
RETURN 


REM zw STUURMODULE a 
GOSUR 920 REM #x* OPENING 
GOSUB 110 :REM ##&x INIT 
GOSUR 8350 :REM #%% OPGAVE 
GOSUB 1140 :REM #** SCHERM 
GOSUR 1518 :REM #%*x INVOER 

IF 5 <> @ THEN 2700 

GOSUR 2338 :REM #** RESULTAAT 
CLOSE #1 

END 


REM 299 INTERNE DATAFILE 299 
DATA 11 :REM AANTAL SPRITES 


REM où SPRITE 1 @ò 

DATA 1s@s ss 3e 3 

DATA 3e 3s 3e 1e 3s 7 

DATA 15:6s6:3s 34: 198 

DATA 254425442501 2424 2421 226 
DATA 2245240: 240: 248, 189: 31 
DATA 141137 

DATA 3A81 : REM CHECKSUM 


REM à) SPRITE 7 dà 

DATA 255:0s 207: 40:46: 40 

DATA 207:0: 25550: 0: Q 

DATA 5s3e1s 12542 

DATA 114574 745 74s 1141 72 

DATA #54s rs 1425: PE 

DATA 162110 

DATA 2876 z REM CHECKSUM 


REM #49 SPRITE 3 aa 
DATA @Q:0:4:0:03: 4 
DATA @A:s0:0:0: Qs A 
DATA 310: 4: As 755: 128 


DE Mi Wit NL Pi MEN DE Mi ME Wi TROP Mr MiG Mi NA MN Ni Wi Ni Nin Mi ie A A Nr ME ir DSW ir Mig Us Si Mi WG Wi Wi it ie Mi Wi NE it Oi ES 


Z548 
2776 
3185 
3918 
4913 
3501 
3761 
3732 
3960 
4056 
3547 
3814 
3782 
3413 
4O1 7 
4108 
3130 
2718 
246 
3219 
J220 
3241 
3292 
3303 
3630 
3324 
3208 
2975 
Zara 
2838 
3046 
3188 
2868 
306 
3633 
3650 
3878 
4231 
4244 
3457 
3376 
2958 
3184 
4085 
4933 
3849 
4123 
4130 
3554 
5477 
3048 
3276 
3809 
3814 
4035 
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3040 
3450 
346 
3870 
34830 
3090 
3108 
3110 
3170 
31350 
3140 
3150 
3140 
3170 
3184 
3190 
3200 
5210 
320 
3230 
3240 
3250 
36 
3270 
32480 
3290 
3340 
3318 
3320 
3350 
3540 
3350 
3360 
3370 
3380 
435 
3400 
3410 
340 
ZA 
JAA 
345 
34 & A 
Zr 7 
3480 
3490 
350 
3510 
3520 
3530 
3540 
355 
3544 
3570 
3580 
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DATA 156:1611165:s145: 156: 128 


DATA #55:0s0s As A: A 
DATA @s@ 
DATA 1569 z REM CHECKSUM 


REM 9 SPRITE 4 aa 

DATA 12@s Zs 75 15s 31 

DATA 59s115s 227 19e 1s1 

DATA Jslsislis34s 198 

DATA 254 75bs 25Os 4E ZAP 24E 
DATA Biharie 19197219 128 
DATA 24e 117 

DATA 3861 : REM CHECKSUM 


REM à@® SPRITE 5 oa 

DATA @s@As 3e 7e 14e 51 

DATA 59 115sHE7s 1938 53 7 

DATA 15s6sbs5s 46E 

DATA 20741991174 EE 1E EA 
DATA ZE4r EAU: 2405 74041891: St 
DATA 141137 

DATA 37287 : REM CHECKSIUM 


REM a SPRITE & 9d 

DATA @As As Ds As Os A 

DATA 255s0sZ01s41s41s41 

DATA 198,0: 255: Os (As Q 

DATA @As Qs As As 25E 4 

DATA 1187595 38, ZA 5614 

DATA 5E: 

DATA 1811 t REM CHECKSUM 


REM 9) SPRITE 7 @à 

DATA As@sQs As: D 

DATA Os Bs As As As A 

DATA @s As As As Ds AQ 

DATA Bs» As As 755: 120 

DATA 188:1&1ls RS, 161160: 1 ZE 
DATA 255: 4 

DATA 14671 s REM CHECKSUM 


REM 9® SPRITE 8 dà 

DATA @sAs 5e 7115531 

DATA 5941154072 193s 1e 1 

DATA Aststsieásbr 

DATA #07 19941742 ENE 1E 04 
DATA EE4s ZZA 1971971920128 
DATA Zille 

DATA 3418 : REM CHECKSUM 


REM 9 SPRITE 9 dà 
DATA @AsAs4: As As A 
DATA @As@As As Os As 1 
DATA 7115s5s7s0s 0 
DATA As As (A12 Os As A 


EE NE om rg A Bis as Bi ME DEE Vr Br ri Mi Fn it Wi EE PD A EN Nr Vn En ES IE EM OE TE Nn AE ND Se ir Wine WE MRE 


4473 
3948 
347 
3565 
3138 
3366 
4AA7 
4283 
4082 
454 
4569 
3776 
65E 
328 
3456 
4096 
43681 
4129 
4651 
4604 
3817 
3759 
3318 
3546 
447 A 
ls 
43127 
49 
4453 
38057 
38:25 
ZAAG 
3656 
414 
417 
4184 
4405 
4E 4 
35 
314 
HDA 
3726 
Aida 
46643 
4354 
491 
APET 
4136 
4010 
3540 
3816 
4348 
4351 
4 
43570 


3598 
3600 
3610 
3620 
3630 
3642 
3650 
3660 
3670 
3680 
3690 
3708 
3710 
3720 
3730 
3740 
3750 
3760 
3778 
…782 
3790 
3820 
38318 
3820 
3330 
3340 
3854 


Voorbeeld 


DATA 
DATA 
DATA 


0sAsB: 128: 2241 240 
160: 224 
1011 : REM CHECKSUM 


REM ad SPRITE 10 da 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Zeis 7015150 27 
2782727110707 
&s1Zs1Zs12sb4s 128 

Zihs 240: 240: 21617161716 
216: 208: 224: 27496: 48 
48:48 

2871 : REM CHECKSUM 


REM 9à SPRITE 11 99 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


V8P7s 12763 Ze 3 
1315195723 1277225510 
Ass, As 7D 124 
25475 1E 19701930195 
Z51s754e 2550: Ds A 

Bs A 

3564 : REM CHECKSUM 


REM 99D DATA MUZIEK @aa 


DATA 
DATA 
DATA 
DATA 


* Het 


"03E"; "OZF"; "036"; "O3A" 
"OIB" s"O4C"s "OAD" 4 "O4E" 
PO4F" s"O4G" 4 POLA" 4 "OGB" 
" 05C* 


aantal opgaven 
aocede antwoorden: 


Hat moet er ingevuld worde 


antwoord 


ontbrekende getal 


Men ME Venn ln Nn Win Me U in a Men Wi Minn Mia nn Er Un, hi NA Mi TE is B in Ve 


nn? 


4693 
4229 
4087 
3678 
396 
4405 
4675 
4774 
5083 
5012 
4232 
4192 
3748 
3996 
4818 
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36 Gelijk = Gelijk 


Het programma Gelijk = Gelijk produceert optelsommen, waarbij de optelling 
aan de linkerkant van het gelijkteken gelijk moet worden aan de rechterkant 
van het gelijkteken. De linkerkant is volledig ingevuld, maar aan de rechterkant 
ontbreekt een getal. Dit ontbrekende getal moet worden berekend. 

Een voorbeeld: 8 +9 = 10 + …. 

De module ‘Opgave’ zorgt ervoor dat aan de rechterkant altijd een tiental staat. 
Het programma traint dus in sommen, waarbij de som van de linkerkant moet 
worden gesplitst in een tiental en een rest. 

Na elke vijf goed beantwoorde opgaven gaat het niveau omhoog! Het pro- 
gramma is gebaseerd op het honderdvel, zoals dat op de basisschool wordt 
gebruikt. 

De bedenktijd voor een opgave wordt bepaald door de variabele T2. Deze staat 
ingesteld op acht seconden. U kunt deze bekorten of verlengen door de waarde 
van de variabele T2 in de module ‘Initialiseren’ te wijzigen. In dezelfde module 
staat ook de variabele T4. Deze variabele bepaalt de tijd dat een uitkomst op het 
scherm blijft staan. De variabele TS bepaalt de maximale speeltijd in secon- 
den. Ook deze variabele staat in de module ‘Initialiseren’. 

Bewust is dit programma niet voorzien van een mooi achtergrondbeeld met 
bewegende sprites. Aan de hand van de andere programma's uit dit boek moet 
_het mogelijk zijn dit programma aan te kleden. 


Programma 

19 REM #x GELIJK = GELIJK %%%# / 228 
20 CLEAR 4000 / 57 
30 KEY OFF / 487 
4Q GOT) 1280 / 556 
50 : / 108 
64 REM «xx INITIALISEREN #&x / 336 
7@ COLOR 155454 : SCREEN @ / 1321 
84 LOCATE 2:10 / Zil 
F0 PRINT "Eventies aedujld '* / 2117 
10A LOCATE 2517 / 733 
118 PRINT "[F1J = Stappen" / 1748 
120 E$ = "2123456789" / 879 
138 E$ = E% + CHR$(B)+CHRE(1 3) / 1319 
148 5% = CHR$(194)+S5TRINGS(Z0s ".") / 1723 
158 Alf = "V15L9S11M5S5ABE" / 1314 
160 AZ$ = "V15L958BM39GFE" / 1295 
178 M$ = "T145V15L9S11M5SFGA+AHGGFB" / 1970 
1808 M$ = M$ + "+FGA+A+GGFBG" / 1327 
190 H$ = STRING$( 38: CHR$ (327) ) / 15,37 
208 KEY 1,"2* / 657 
218 DEF USRI=&H156 :REM kevbrd leeg / 1843 
220 DEF USRZ=&HID REM geluid leeg / 1443 
238 DEF FNA(A) = INT(RND(ID%A+#1) / 17308 
248 A = RND(-TIME) / 1923 
25e GD = 1 REM geluid aan / 495 
268 TE = 8 REM bedenktd / zn (| 


2708 
2830 
290 
300 
318 
320 
350 
340 
350 
360 
370 
330 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
564 
570 
580 
50 
60 
618 
620 
630 
640 
650 
660 
670 
688 
690 
700 
710 
720 
730 
740 
750 
760 
770 
788 
798 
800 
8108 


T4 = 5 REM wachtti.id 
G= 8 : T = A :REM Ggaed/tataal 
Z=g REM Punten 

RT = Q REM resultaat 
TIME = @ REM klak = @ 
TS = 1009 ‘REM zpeeltiid 
TS = TS « 50 

0 = 3 REM aant] fauttb] 
KEN In 27 

GOSUB 400 REM Hee KOP 
RETURN 

REM #xx KOP wr 


CLS : PRINT 

PRINT "xe Gellik = Gellik #5 
RETURN 

REM %iek OPGAVE HE 

Q = INT(Z/5+1) 

C = FNA(G)#10 7: Y = FNA(10)+#C 
D= Y-6GtIFDeE= A THEN 460 
E = C+10-Y : E = FNA(E) 

A= C-E ft RB = Y-A 

IF B=zC OR A=C THEN 460 

RETURN 

REM xx SCHERM OPROUWEN ax 


LOCATE A44 & PRINT "Aantal aup"5 
PRINT "gaven Ee 

LOCATE 453 & PRINT "Goede ant"5 
PRINT "waarden #"53G 

FOR 1 = 1 TO 1 

LOCATE @:8+I £ PRINT H$ 

NEXT I 

LOCATE 257 

PRINT "Wat maet er ap de Ppunt"5 
PRINT "ies staan 27" 

LOCATE 219 

PRINT A5" + "5R$" = "$C$ 

PRINT U zen” 

LOCATE 2:12 

PRINT "Jauw antwaard is &* 
RETURN 


REM xx INVOER se 
WzB : Og="" 8 DUMMY 
15 = TIMESIZSI & 15 
SIS=LEFT$(S$»s 101) 
IF TS — TIME < @ THEN 918 
LOCATE 21,12 : PRINT Q$+51$ 


USR1 (0) 
Va) 


AS=INKEY$ £ IF A$="" THEN A$="@" 


IF A$ = "7" THEN 918 
H = INSTR(ESsA$) 

IF H <> 11 THEN 830 
IF L = @ THEN 830 


Re B Re hehe Vie en Me Mei Oi Tie ie We Mie de ie ie he Me Mie Me ie er Men Meike ae ie Vee Vie Me Me ie A Te nie Wh Nene Me Me Mee ir ien Pee We MW ke er 


520 
7A1 
489 
Te 
722 
741 
848 
5.30 
887 
897 
85a 
438 
66 
1831 


2571 


SAL 


480 


716 
1190 
1811 
1635 
1542 
1181 
1648 

90 

578 

806 
2554 
1873 
2548 
24543 
1254 
1857 

kde PS 
1199 
3135 
2079 
1231 
1908 
1416 
1303 
2818 
1170 

758 

986 
2163 
1794 
1766 
1973 


me 6, 
22E) 


2330 
1673 
1654 
1693 
1596 
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820 
830 
840 
850 
860 
870 
880 
890 
00 
91 
920 
950 
940 
95 
964 
97 
9,80 
990 
1000 
1810 
1820 
1830 
1944 
1950 
1060 
1870 
1480 
1090 
1100 
1118 
1120 
1130 
1140 
1150 
1160 
1178 
11802 
1198 
12008 
1218 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
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Lel-1 8 O@S=LEFTS(G%sL.) 

IF H=@ OR H>1@ THEN A$="" 
OE=OEAE 7 LELEN(GE) 

IF L>18 THEN L=@ : G$="" 

T3 = T5-TIME 

IF HX>12Z AND T3:>@ THEN 740 
LELEN(GS$) : SIS=LEFT$S(SE, 10-L) 
LOCATE Zis1Z £ PRINT G&+51$ 
W e= 1 

RETURN 
REM zer GOED / FOUT HK 

IF W e= B THEN 1124 
H=d : R$="Faut" zt AfzZAZS 

IF VAL(GE) <2 D THEN 980 
Hel & R$="Goed" 1: AfzAl$ 
LOCATE 38:99 : PRINT R$ 
G= GG +HE: Te Teti 

IF H=A THEN Z=Z-1 ELSE 7Z=Z+1 
IF Z < @ THEN Z = @ 

DUMMY = USRZ(A) 

IF GD=1t THEN PLAY A$ 

LOCATE 2352 £ PRINT T5" " 
LOCATE 2353 £ PRINT G5" * 

IF H = 1 THEN 1100 

LOCATE Zs17 

PRINT "Het antwaard maet"5D5 
PRINT "zin." 

T5 = T4&(Z-H)K5D + TIME 

IF T5 — TIME > @ THEN 1114 
RETURN 


REM #&x RESULTAAT #*# 

IF T < 1 OR G < 1 THEN 1170 
RT = INT(G#140/T+.5) 

GOSUB 4A8 zREM #x# KOP 
LOCATE 26 

PRINT "Aantal afgaven £"5T 
LOCATE 2:8 

PRINT "Goede araaven «"5G 
LOCATE 2:10 

PRINT "Percentage Gaed:"sRT 


IF RT>7@ AND GD=i THEN PLAY M$ 


RETURN 


REM za STUURMODULE Hak 
GOSUR 70 REM «4x INIT 
GOSUB 458 REM ze OPGAVE 
GOSUB 548 :REM #x** SCHERM 
GOSUR 728 EREM #*r INVOER 
GOSUR 938 REM #xx GOED/FOUT 
IF W <> @ THEN 1290 

GOSUB 1150 :REM #&* RESULTAAT 
END 
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3.7 Guldens en dubbeltjes 


Het omgaan met stuivers, dubbeltjes, kwartjes en guldens is voor menig kind 
nogal lastig. Dit programma is behulpzaam bij het leren omgaan met geld. In 
het begin zijn de opgaven eenvoudig, zoals 2 GULDEN + 3 DUBBELTJES = 
enz. Naarmate meer opgaven goed worden beantwoord, worden de opgaven 
lastiger. De moeilijkheidsgraad wordt bepaald door de niveau-indicator, varia- 
bele Z. 

De uitkomst van een opgave moet in centen worden opgegeven. Op het hoog- 
ste niveau bestaan de opgaven uit drie muntsoorten met een optelling en een 
aftrekking in één opgave. De uitkomst is altijd meer dan nul cent. 

Door het invoeren van een nul in plaats van het antwoord stopt het programma 
en laat de eindscore zien. 

In dit programma kan ook met buitenlandse munteenheden worden gewerkt. 
Bijvoorbeeld de Belgische. In matrix A$ worden de muntsoorten benoemd. In 
matrix B eerste kolom staat de waarde van de munt uitgedrukt in de kleinste 
munteenheid. In dit geval in centen. In de tweede kolom staan de basishoe- 
veelheden per muntsoort waarmee in het programma wordt gerekend. De re- 
gelindices van matrix A$ en B zijn aan elkaar gelijk. 

Suggestie: In het programma wordt uitsluitend gerekend met muntgeld en 
niet met biljetten. U kunt de basis van dit programma gebruiken om een pro- 
gramma te schrijven dat ook met biljetten rekent. 


Programma 

1D REM #*x GULDENS & DURBBELTJES «x« / 228 
ZA CLEAR 4000 / 575 
38 DIM A$(4)sB(4s4)s C(4) / 1865 
40 KEY OFF / 497 
5A GOTO 1820 / 546 
&A : / 118 
78 REM #*x INITIALISEREN «+ / 346 
BA COLOR 155454 : SCREEN @ / 1311 
MB AE(1) = "ztuiver" / 1234 
148 A&(2) = "dubbeltje" / 1404 
119 A$(H) = "kwartie" / 1232 
120 A$(4) = "gulden" / 1122 
130 REM &# MUNTWAARDEN #% / 1350 
148 B(1s1) = 5 8 BCZ) = 10 / 1049 
150 B(3s1) = 25 1 Bl4s1) = 103 / 1161 
168 REM &x MAXTMALE AANTAL %% / 1389 
178 B(1,2) = 5 £ BL242) = 13 / (A81 
188 B(3:2) = 4 £ B(4s2) = 4 / 1449 
198 E$ = "D173454789" / 949 
200 E$ = E% + CHRS(B)+CHR$(13) / 1389 
218 5% = CHR$(194)+STRINGS(ZOs ",") / 1773 
220 Al$ = "VISL9S11MSSARE" / 1384 
238 AZ$ = "VISL9SBMIGGFE" / 1365 
248 M$ = "T14SV15L9S511MSSFGAHA+GGFR" / 2040 
250 M$ = ME + "+FGAHA+GGFBG" / 1397 
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260 
274 
280 
290 
JA0 
312 
320 
330 
340 
352 
360 
370 
380 
490 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 


510 
520 


540 
552 
540 
574 


H$ = STRING$(38« CHRE (32) ) 

KEF IA 

DEF USRI=&H156 :REM kerkrd leed 
DEF USRZ=&HID EREM Geluid leeg 
DEF FNA(A) = INTORND(I)%A+1) 

A = RND(-TTME) 


GD = 1 REM geluid aan 
TZ = 8 :REM bedenktd 
T4 = 5 REM wachttiid 
G= @ tt T = A :REM Gaed/tataal 
Z=@ REM Punten 

RT = Q REM resultaat 
TS = 1000 :REM speeltiid 
TS = T8 « 50 

KEY 1s "2" 

GOSUE 5AA REM #x* KOP 
LOCATE 255 


PRINT "[F1) = STOP * 

FOR I = 1 TO 80A : NEXT I 

TIME = 4 

GOSUP. S5AQ REM Hak KOP 

RETURN 

REM «xx KOP Hr 

CLS £ PRINT 

PRINT "*#* Guldens en dubhelt.i*s 
PRINT "es #xx'" 

RETURN 


REM ### OPGAVE Haer 

POR TJ = 4 TO 4 

ECI = I 

B(Is3) = FNA(R(Ts 2)) 
B(Is4) = B(Is A) # B(Ts 1) 
NEXT 1 

Y = INT(Z/S) :REM maveau 
IF Y > 4 THEN Y = 4 

Y = FNA(Y) 

IF Y > 2 THEN X=t ELSE X=2 
FOR 1 = 4 TO X 

0 = FNA(4) 

IF R(@s3) = AQ THEN 660 
R(Gs3) = B tt B(Os4) = A 
NEXT T 

REM #%& DOOR ELKAAR GOOIEN #% 
FOR I = 1 TO 3 

0 = FNA(4) z X = FNA(4) 
SWAP CG) s CX) 

NEXT I 

IF Y MOD Z <> @ THEN 910 
REM #* SORTEREN H —> L ## 
FOR X = 4 TO 2 STEP =-1 

FOR 0 = 1 TO X 

IF B(C(X)s4)I EBIC) 54) THEN BIA 
SWAP C4X)s CO) 

NEXT & 
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820 
8.30 
340 
854 
a6d 
87a 
aaa 
2 
sa0 
918 
A) 
950 
940 
95 
960 
974 
aa 
9 
14aA 
1018 
1070 
1934 
10408 
1958 
1862 
1970 
1084 
1490 
1100 
1110 
11270 
1130 
1140 
1150 
1160 
1170 
1184 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1200 
1278 
1280 
1290 
1300 
13108 
1320 
1330 
1540 
13558 
1560 


NEXT X 

REM &#* PLUS MIN ## 

FOR I = 2 TO 4 STEP 2 

lS CCI HR 5 OEL 

IF B(Ls4)-B(Hs4) = @ THEN A90 


B(Ls3) = B(lLs3) « 1 
R(Ls4) = BlLs4) & 1 
NEXT I 

REM #« UITKOMST «+ 
D=ga 

FOR Je Tt TU 4 


D= D+tB(C(I)s4) 
NEXT 1 
RETURN 


REM #axr SCHERM OPBOUWEN waer 
LOCATE 447 8 PRINT "Aantal ar": 
PRINT "gaver Er 

LOCATE 453 £ PRINT "Goede ant"5 
PRINT "waarden #"5G 

FOR I= 1 TO 10 

LOCATE @:8+T : PRINT H$ 

NEXT 1 

LOCATE 247 

PRINT "Wat iz de uitkamest in "5 
PRINT "centen 7" 

LOCATE @A:9 

H = A 

FOR TI = 1 TO 4 

La EIN 1 ABE LT 

IF B(Ls3) = @ THEN 1190 

IF H = @ THEN 11460 

A$=" +"2IF B(Ls 3) THEN A$=" —" 


IF H = 2 THEN LOCATE 20:10 
PRINT A$sABS(B(lLs A) 3AS(L) 5 
IF B(lLs3) St 1 THEN PRINT "a": 
H =H ti 

NEXT TI 

PRINT 


LOCATE 2512 
PRINT "Jauw antwaard is :" 
RETURN 


REM xx INVOER #4 
WzB £ G$="" 8 DUMMY = USRI (A) 
T5 = TIME+TZ#50 : L = @ 
Si=LEFTE(SEs 1A-L) 

IF TS — TIME < @ THEN 1450 
LOCATE 21:12 % PRINT 0$+S1% 
AS=INKEYS$ : IF A$="" THEN A$="" 
IF A$ = "7" THEN 1450 

H = INSTR(ESsA$) 

IF MW 14 THEN 140 

IF L = @ THEN 1370 

Label % OS=LEFTS (ORL) 
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1227 
1455 
1834 
1714 
2235 
1703 
17 t5 
1287 
1514 
LAG 7 
1549 
1454 
12 
14 
1A1 a 
14 
LIF k 
2313 
JAAA 
2495 
1694 
2297 
14357 
1639 
3576 
2267 
1669 
1271 
1729 
1754 
2196 
1957 
zo87 
2458 
2706 
2744 
1477 
1587 
1597 
1843 
3358 
17108 
1798 
1524 
ZA 
Z334 
2346 
2561 
2765 
2920 
2201 
2194 
22at 
7184 
2554 
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1370 
1380 
1390 
1400 
1410 
1470 
1430 
144 
1450 
1450 
1470 
1480 
1490 
1520 
1510 
1528 
1530 
1542 
1550 
1540 
1570 
1580 
1592 
1420 
1410 
1670 
1434 
1640 
1454 
16640 
1670 
1680 
1690 
1700 
1718 
1720 
17308 
1740 
1750 
1760 
17708 
1780 
1790 
1800 
1810 
1824 
1830 
1840 
1854 
1840 
187 
1880 
18394 
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IF H=8 OR H>1D THEN A$="" 
OS=OEHAS 7 L=ELEN(GS) 

IF L>18 THEN L=3 : @$="* 

15 > TSTIME 

IF HS2>12 AND T4:@ THEN 1284 


L=LEN(G®) : SIS=LEFT$(S$s 1 OL.) 


LOCATE 21517 & PRINT @$+51$ 
W e= 1 
RETURN 


REM #x*s GOED / FOUT #ar 

IF W = @ THEN 1660 

H=A : R$="Faut" & A$=ALS$ 

IF VAL (O4) € D THEN 15724 
Hel : R$="Goed" : A$=A1$ 
LOCATE 30:20 : PRINT R& 
G=6G+HesT=Teett 

IF H=0 THEN Z=Z-1 ELSE 7Z=Z+1 
IF Z < @ THEN Z = @ 

DUMMY = USRE (A) 

IF GD=t THEN PLAY A$ 

LOCATE 23:22 8 PRINT Ts" * 
LOCATE 2353 8 PRINT Gs" * 

IF H = 1 THEN 14640 

LOCATE #1 17 

PRINT "Het antwaard maet 5D 
PRINT "zijne." 

T5 = T4&(H-H)K5A + TIME 

IF T5 — TIME > @ THEN 1650 
RETURN 


REM #4 RESULTAAT ##% 

IF T < tf OR G < 1 THEN 1710 
RT = INT(G#1AA/T+. 5) 

GOSUR 50A :REM sx KOP 
LOCATE Zs6 

PRINT "Aantal opgaven :"5T 
LOCATE #16 

PRINT "Gaede nrdaven #"5G 
LOCATE Zs 12 

PRINT "Percentage Gaed:" RT 


IF RT>74 AND GD=1 THEN PLAY M$ 


RETURN 


REM xx STUURMODULE 
GOSUR 30 EREM #x# INIT 
GOSUBR 560 EREM sk OPGAVE 
GOSUBR 980 :REM ##* SCHERM 
GOSUB 1240 :REM ### INVOER 


GOSUB 1478 SREM #%*# GOED/FOUT 


IF W <> @ THEN 1834 


GOSUB 1698 :REM #** RESULTAAT 


END 


a 


NE Mn War VM ir 
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Voorbeeld 


dubbeltje 


centen > 


101 


4. Taalprogramma's 


4.1 Stel een woord samen 


Het doel van dit programma is om aan de hand van een aantal door elkaar ge- 
gooide lettergrepen het originele woord weer samen te stellen. In het RUN- 
voorbeeld kunt u zien wat de bedoeling is. Voor de beantwoording is slechts 
een beperkte tijd beschikbaar. Deze bedenktijd is afhankelijk van het aantal ka- 
rakters waaruit het woord is samengesteld. De bedenktijd per letter wordt ge- 
regeld door de variabele T2. Deze staat in de listing ingesteld op 1,5 seconde. 
De variabele TS bepaalt de maximale speeltijd. Indien u tussentijds wilt stop- 
pen, kan dit. U drukt op de functietoets F1, wanneer het programma op invoer 
staat te wachten. Het behaalde resultaat wordt op het scherm getoond. 

Ik raad u aan het aantal woorden in de interne datafile flink uit te breiden. Hier- 
toe verdeelt u het woord in lettergrepen door tussen elke lettergreep een lig- 
gend streepje te plaatsen. Matrix A$ kan maximaal vijftig woorden bevatten; 
een woord mag niet meer dan 10 lettergrepen bevatten. Gezien de laatste voor- 
waarde zullen de meeste woorden geschikt zijn. Bij het toevoegen van een 
woord moet u er op letten dat de laatste DATA-regel er als volgt uitziet: regel- 
nummer DATA <STOP>. Deze regel mag u beslist niet vergeten, daar anders 
in de module ‘Interne data file lezen’ het einde van het interne bestand niet kan 
worden gedetecteerd. Het programma zal dan een foutboodschap genereren. 


De interne datafile achteraan het programma bevat nu woorden, die in letter- 
grepen verdeeld zijn en daar is het programma ook op ontworpen. Het is echter 
ook mogelijk om woorden die in letters verdeeld zijn, aan de interne datafile 
toe te voegen. Als voorbeeld volgt hier een kleine interne datafile met de woor- 
den verdeeld in letters in plaats van in lettergrepen. Overigens geldt hier ook 
weer dat de laatste DATA-regel <STOP> moet bevatten. 


1819 REM aaa INTERNE DATA FILE aaa 

1829 DATA a-a-p, h-u-i-s, n-0-0-t 

1839 DATA r—-o-o-s, m-i-e-p, k-l-a-a-s 
1849 DATA w-e-k-k-e-r, b-o-o-t, k-e-v-e-r 
185% DATA a—-u-t—-o, w-i-n-k-e-l, k-e-v-e-r 
1869 DATA <STOP> 
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Programma 


18 REM «xx STEL EEN WOORD SAMEN xx / 228 
20 CLEAR 4000 / 3753 
30 DIM A$(5A)sB(18):C(1A) / 1108 
40 KEY OFF / 497 
5@ GOTO 1720 / 565 
&A : / 118 
70 REM xx INITIALISEREN ##x / 346 
84 CLS : A = RND(-TIME) / 1147 
98 DEF USRI=&H41 REM scherm disable / 868 
148 DEF USR2=&H44 :REM schrm enable / 887 
110 DEF USR3=&HID :REM geluid leeg / 394 
128 DEF USR4=&HIS6:EREM kerbrd leeg / 956 
138 DEF FNA(A) = INT(RND(I)%A+1) / 1630 
148 KEY 15"7" / 597 
158 Al$ = "VISL9SI11M5S5ABEFG" / 1455 
168 AZ$ = "V15L451 1MPA0OZRAGFE" / 1589 
178 E$="" 8 AzZASC("A") & B=ASC(*"a") Â 1663 
188 FOR IT = A TO 25 / 859 
190 ES=ZES+CHRE(A+I)+CHRE(R+T) / 1586 
200 NEXT I / 592 
219 E$ = E$ + "—-" 4" / 793 
20 E$ = E& + CHR$(13)+CHRE(H) / 1409 
238 H$ = STRINGE(38: CHR$ ( 32) ) / tm 37 AT 
Z40 5% = CHRE(194) +STRINGE(ZBs ".") / 1823 
z58 GOSUR 390 REM #xx INT FILE / 79 
268 GD = 1 REM Geluid aan / 549 
2/8 T2= 1.5 REM bhedernktiid/1tr / &13 
288 T4 = 5 :REM wachttiid 2 534 
290 G= 0 : T = B :REM Gaed/tataal / 721 
300 RT = @ REM rezultaat / 575 
310 TIME = @ REM klak = @ / 722 
320 TS = 1000 :REM sreeltiid / 741 
338 TS = TS «* 5 / 26 
340 P = @ REM vorige vraagd / 529 
350 G = B REM fauttakbel / 540 
368 RETURN / 24 
370 : / 478 
380 REM %x INTERNE DATAFILE LEZEN «** / 656 
390 RESTORE 1838 : NA = 50 / 1505 
4AA FOR 1 = 1 TO 50 / 187R 
419 READ AS(I) / N49 
42 IF AS(T) <> "<STOP2" THEN 440 / 1911 
438 NA = I - 1: 1 = 50 / 1A94 
440 NEXT 1 / 832 
45@ RETURN / 93 
460 : / 518 
470 REM xx KOP ver / 146 
488 COLOR 15s4s4 / 37 
498 SCREEN @ : CLS / 1270 
500 PRINT "#xx Stel een waard * / 255 
518 PRINT "samen ze” / 1665 
520 RETURN 4 1400 
53A : / 588 
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542 
550 
560 
570 
580 
50 
400 
é&10 
620 
6350 
640 
650 
660 
670 
630 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
8300 
810 
80 
8350 
840 
850 
d60 
870 
330 
890 
900 
910 
920 
93 
740 
950 
6 
978 
9808 
990 
1400 
1910 
1020 
1938 
1440 
1950 
1060 
1970 
1480 
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REM xx SCHERM OPBOUWEN ##x 
LOCATE 4,2 £ PRINT "Aantal ap"53 
PRINT "gaver ng 

LOCATE 4:3 : PRINT "Gaede ant"5 
PRINT "waarden £"G 

FOR T = 1 TO 14 

LOCATE @,6+I1 :£ PRINT H$ 

NEXT I 

LOCATE 256 

PRINT "Stel een waard samen” 
LOCATE 4,8 

FOR IT = 1 TO K 

PRINT B&(C(I)) 5 


Pp 1 54 K THEN: PRINJ S=l3 
NEXT 1 

PRINT 

LOCATE Zs 11 


PRINT "Jauw antwaard is «" 
RETURN 


REM #&x INVOER Hex 

W=zD 7 Of="" 8 DUMMY=USR4 (A) 
T5 = TIME+LI#TZ#50 : LL = @ 
SISZLEFTS ISH: ZAL) 

IF TS-TIME < @ THEN 990 
LOCATE 6:13 7 PRINT @$&+51% 
AE=INKEY$ : IF A$="" THEN A$="@" 
IF A$ = "2" THEN 990 

H = INSTR(ESs:A$) 

IF H Zò 56 THEN 860 

IF L. = @Q THEN 860 

Lmlet 2 Of=lEFTS(GEsL) 

IF H = B OR H & 53 THEN A$="" 
GE=ZOEAE 2 L = LEN(GQS) 

IF L > 24 THEN L=@ £ O$="" 

T3 = T5-TIME 

IF HH £> 55 AND T3 > @ THEN 778 
A$="" £ IF L=@ THEN 980 

REM #x* GROOT — KLEIN ## 

FOR 1 = 1 TO L 

H = INSTR(F&sMIDE (GE, Tet )) 


IF H MOD 2 <> @ THEN H = Hel 
A$ = AS+MIDE(ES:Hs 1) 

NEXT I 

Wet : 06 = A$ 

RETURN 


REM see GOED/FOUT 

IF W = @ THEN 1180 

H= 8 : R$ = "Faut" : AS = A2$ 
IF G$ <> D$ THEN 1060 

H= tl : R$ = "Gaed" : A$ = Al$ 
LOCATE 38:58 : PRINT R$ 

G = GtH : T= T + 1 

IF GD = 1 THEN PLAY A$ 
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816 
z566 
1883 
2578 
zA04 
1265 
1865 
1007 
1208 
2998 
1234 
1302 
1578 
1955 
1872 
1087 
1332 
z848 
1220 
788 
1016 
2196 
1991 
107 
011 
Zelj 
2410 
174 
1454 
id 
1629 
ZA4b 
„116 
1925 
„055 
1571 
“260 
199 
Z218 
15E 
PD {he} 
„205 
1915 
1,367 
1514 
1470 
145a 
1286 
1844 
2301 
z028 
2290 
2272 
1767 
2186 


1990 
1149 
1118 
1120 
1130 
1140 
1150 
116 
1170 
1188 
1190 
1200 
12108 
12270 
1230 
1540 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
13408 
1350 
13560 
1370 
1380 
1390 
14008 
1410 
1420 
1430 
1440 
1450 
14608 
1470 
1480 
1490 
1508 
1510 
1520 
1530 
1540 
1550 
1562 
1570 
1580 
1590 
1600 
1610 
1628 
1630 


LOCATE 23s2 8 PRINT T5" * 
LOCATE 2313 £ PRINT Gs" * 
IF H = 1 THEN 1150 
LOCATE 2:15 


PRINT"Het antwaard maet zint" 


LOCATE 6117 £ PRINT D$ 

T5 = T4#(2-H) #5Z+T IME 

ON H+1 GOSUB 12712: 1760 

IF T5 — TIME > @ THEN 1178 
RETURN 

: 


REM «xx FOUT Hex 

IF Q+1 > 10 THEN 1230 
Q=z0t1 8 BIG) = X 
RETURN 


REM. xx GOED Hex 
IF Q = @ THEN 1350 
FOR I = 1 TO G 

IF X <> B(I) THEN 1340 
IF Q = 1 THEN 1330 
FOR J = 1 TO @-1 
B(J) = B{J+1) 

NEXT J 

I=z0 : G=0-l 

NEXT I 

RETURN 


: 

REM #4 OPGAVE zer 

X=FNA(NA) & IF X=P THEN 1380 
IF 6=8 OR RND(1)>.7 THEN 1410 
X = FNA(Q) £ X = BX) 
BEZAE(X) 8 LI=LEN(RS) 7 P= 
K=l 8 C(i)j=i : B$(1)="" & 
FOR: Tm 1%. FO: 11 
CH=MIDE(RS, Is 1) 

IF C$& <> "==" THEN 148@ 
K=Kt1 8 CK)=EK 

B$(K)="" 8 C$="" 

D&=D$+CH 8 BE(K)ERE(K) +CH 
NEXT I 

CAK4 1) =kt1 

REM #* DOOR ELKAAR GOOIEN #% 
L = INT(K/2) 8 X = Kel 

FOR I= 1 TOL 

Y=FNA(X) +L. £ SWAP C(I)sC(Y) 
NEXT I 

RETURN 


REM #&x RESULTAAT ##% 

IF T < 1 OR G < 1 THEN 1610 
RT = INT(G#10A/T+, 5) 

GOSUR 480 :REM xx KOP 
LOCATE 256 

PRINT "Aantal aPpGaven :"5T 


X 
D$= id 
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2423 
arl 
19:37 
1756 
3796 
2341 

2263 
2306 
2412 
1660 
1248 
1476 
2186 
1974 
1710 
1298 
1526 
z497 
1928 
2356 
2126 
2877 
1905 
17153 
1970 
1737 
1830 
1418 
1646 
2984 
2906 
2366 
2784 
„680 
2132 
2251 

2439 
„180 
2147 
2676 
1887 
2043 
2271 
2548 
2183 
3066 
1947 
2040 
1628 
1856 
2770 
2674 
2150 
zza8 
3705 


105 


LOCATE 2:68 

PRINT "Gaede arpgaven :"53G 
LOCATE 2:10 

PRINT "Percentage Saed" s3RT 
PRINT 

RETURN 


REM zxr STUURMODULE wax 
GOSUR 30 REM sax INIT 
GOSUBR 488 :REM xx KOP 

GOSUB 1388 :REM #&# OPGAVE 
GOSUR 550 REM #ex SCHERM 
GOSUB 750 :REM xx INVOER 
GOSUB 1020 :REM #ex GOED/FOUT 
IF W = 1 THEN 1740 

GOSUR 1590 :REM RESULTAAT 

END 


REM aa INTERNE DATAFILE @5a 
DATA bak-fietssvul-ren-nen 
DATA te-kern-blakssla-ger 
DATA bram=-fietssra-ket-ten 
DATA iis-lal-lvscha-ca-la-de 
DATA Araen=-te=manskerk-klak 
DATA draaS-tram=melsdak=-ter 
DATA han=-Sersvuil=nid=man 
DATA <STOP> 


Voorbeeld 


xx Stel een woord samen XXX 


Aantal irt : 8 
Goede antwoorden 4 


Stel een woord samen 


mel -trom-drooa 


Jouw antwoord is 


droostrommem....-.-=.. 


Het antwoord moet zijn: 


106 


drooastromme 1 


nn Mn Mie Vin Pidi Te Vn Meh Ki. de Ni Mee Men Ae ie he Se Me Mn ie vi ie en Me 


4.2 Lettergrepen 


In dit programma verschijnt een woord op het beeldscherm. De gebruiker 
wordt verzocht dit woord in lettergrepen te verdelen. Nadat het antwoord is 
ingevoerd, wordt nagegaan of het antwoord juist is. Blijkt het antwoord foutief 
te zijn dan zal gedurende enige tijd het goede antwoord zichtbaar op het 
scherm blijven. De opgaven blijven maar een beperkte tijd op het scherm 
staan. Wordt het antwoord niet snel genoeg gegeven dan wordt het als fout 
gerekend. De bedenktijd is afhankelijk van de lengte van het woord. Per karak- 
ter wordt 1,5 seconde gerekend. Dit kunt u verlengen of verkorten door de 
waarde van variabele T2 te wijzigen in de module ‘Initialiseren’. 

De maximale speeltijd wordt bepaald door de waarde van variabele TS. Wilt u 
het programma tussentijds beëindigen dan drukt u op functietoets F1. Hierna 
verschijnt het behaalde resultaat op het beeldscherm. Dit gebeurt ook wanneer 
de gebruiker de maximale speeltijd heeft uitgespeeld. 

Het aantal woorden dat in de interne datafile is opgeslagen is slechts beperkt. 
U kunt dit aantal flink uitbreiden. U moet er wel voor zorgen dat het eerste DA- 
TA-statement met woorden op hetzelfde regelnummer komt de staan als in de 
listing. De laatste DATA-regel moet er als volgt uitzien: regelnr. DATA 
<STOP>. 

Het programma kent geen verschil tussen hoofdletters en kleine letters. Het 
maakt dus niets uit of de ‘caps lock’-toets ingedrukt is of niet. U moet er wel 
voor zorgen dat de DATA-regels bestaan uit woorden in kleine letters, anders 
werkt het programma niet goed. 


Programma 

18 REM xx LETTERGREPEN #*x 7 226 
28 KEY OFF / 472 
38 DIM A$(50);B(10) / 819 
48 COLOR 1515515 £ SCREEN 3 / 1321 
58 OPEN "GRP?" FOR OUTPUT AS #1 / 1675 
60 KEY OFF / 517 
7@ GOTO 1728 P, 585 
8a : / 138 
9D REM Hex INITIALTSEREN sex / 356 
108 CLS A = RND(-TIME) / 1167 
118 DEF USRI=&H41 :REM scherm disable / 888 
1270 DEF USRZ=&H44 :REM schrm enable / 907 
138 DEF USR3=&HID :REM 3eluid leeg / 914 
144 DEF USR4=&HIS5GIREM kevkrd leeg / 97& 
150 DEF FNA(A) = INTORND(I)%A+1) / 1650 
Ton KEV A / 617 
178 A1$ = "V15LIS11MSSABEFG" / 1475 
1808 AZ$ = "V15L4S11MPBOZBAGFE" / 14609 
199 E$="" : AzASC("A") 7 B=ASC(*a") / 14683 
202 FOR I = @ TO 25 / 879 
210 ES=ES+CHRE (AFI) +CHR$ (BI) / 1406 
220 NEXT I / biz 
230 ES mw ER pp Peten / 813 
240 E& = E% + CHR$(13)+CHRE(B) / 1429 


107 


Z50 
z68 
270 
280 
290 
JAA 
310 
320 
338 
340 
350 
36A 
370 
380 
590 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
502 
512 
520 
530 
540 
550 
560 
570 
580 
590 
6AA 
610 
624 
630 
640 
650 
660 
670 
688 
69 
700 
718 
720 
730 
740 
758 
760 
770 
780 
798 
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H$ STRINGS (38; CHR$ ( 32) 
S$ CHR$ (194) +STRINGE (ZO: ",*) 
GOSUR 410 sREM «xe INT FILE 


it 


GD = 1 REM Geluid aan 

T2 = 1.5 REM bedenktiid/1tr 
T4 = 5 REM wachttiid 

G= 8 : T = B :REM Gned/tataal 


RT = @ REM resultaat 
TIME = @ REM klok = @ 

TS = 1000 REM sPreeltiid 

TS = TS «* 50 

P= ga REM vorige vraag 
0 = @ REM fFauttabel 
RETURN 


REM #%%* INTERNE DATAFILE LEZEN #% 
RESTORE 1840 & NA = 50 
FOR 1 = 1 TO 50 


READ A$(I) 

IF AS(I) <> MESTOP2" THEN 460 
NA = ITI - 1: I= 50 

NEXT I 


RETURN 


REM #xk OPENING sx 
DUMMY = USR1 (0) 
PRESET (50: 30) 

PRINT #1s "Letter" 
PRESET (50: 110) 


PRINT #1s "Grepen" 

DUMMY = USRZ(A) 

FOR I = 1 TO 2000 : NEXT I 
RETURN 


REM zer KOP Her 

COLOR 1554s4 

SCREEN B : CLS 

PRINT "xe Lettergrepen #4" 
RETURN 


REM xx SCHERM OPBOUWEN xxx 
LOCATE 452 t PRINT "Aantal ap"5 
PRINT "gaver «es 

LOCATE 453 £ PRINT "Gaede ant"5 
PRINT "waarden :"G 

FOR I = 1 TO 11 

LOCATE @:6+1T : PRINT H$ 

NEXT I 

LOCATE Zs6 

PRINT "Verdeel in lettergrepen" 
LOCATE 6:58 : PRINT B$ 

LOCATE Ze 11 

PRINT "Het arntwaard is :" 
RETURN 


ON Vr in, ME NE Wi Wi WE Mie Vi ME EN Ni ANG, MT Mi NE AG IT ME ME AE, Vis MEINEN MA Pi NE ENE Mi AEL OENE NG ME WEENELNE ME MANEN MENG AG 


800 
810 
82 
8350 
840 
850 
860 
370 
884 
890 
00 
910 
920 
9350 
940 
950 
60 
970 
9,838 
90 
1000 
1210 
1820 
1030 
1040 
1450 
1060 
1870 
1234 
1890 
1100 
1114 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
12730 
1240 
1250 
1260 
1270 
1280 
1290 
13500 
1310 
1320 
1330 
1340 


REM #*x INVOER wax 

=D 8 Of"! 8 DUMMY=USR4 (A) 
T5 = TIME+LIi#T2#50 : L = @ 
SIS=LEFT$(S$s 25 -L) 

IF TS-TIME << @ THEN 105Q 
LOCATE 6:13 £ PRINT G$%+S51% 
AS=INKEYS : 

IF A& = "2" THEN 1850 
H = INSTR(ESsA%) 

IF H <> 56 THEN 920 

IF L = @ THEN 920 

eet 8 ObelEFTE(OEsL ) 

IF H=A OR H>53 THEN A$="" 
QOE=OE+AE 5 LL = LEN(GE) 

IF L224 THEN Leze t Of="" 

T3 = T5-TIME 

IF H <> 55 AND T3> @ THEN 830 
A$="" £ IF L=@ THEN 1940 

REM #& GROOT — KLEIN ## 

FOR I = 1 TO L 

H = INSTR(FE&sMIDS(@%s Js 1)) 


IF H MOD 2 <> @ THEN H=H+i 
ASZAS+MIDS(ES. He 1) 

NEXT I 

Wei : @$=At 

RETURN 


REM #e GOED/FOUT Hek 

IF W = @ THEN 1242 

H=3 : R$="Faut" t ASzA2$ 
IF Q& <> D& THEN 1120 

Hel & R$="Gaed" tt A$=zAl$ 
LOCATE 28,8 : PRINT R$ 
G=G+H : T=T+i 

IF GD = 1 THEN PLAY A& 
LOCATE 23:2 £ PRINT T$" * 
LOCATE 23:3 : PRINT G5" * 
IF H = 1 THEN 1210 
LOCATE 2515 


PRINT"“Het antwaard moet zijn:" 


LOCATE 6417 £ PRINT D$ 

T5 = T4&(Z-H)#5A4+TIME 

ON H+1 GOSUR 1270513270 

IF T5 — TIME > @ THEN 1230 
RETURN 

8 

REM #x FOUT ze 

IF G+1 > 18 THEN 1290 
Qz0t1 £ B(G) = X 

RETURN 


REM #*x GOED er 

IF & = @ THEN 1413 

FOR I = 1 TO @ 

IF X <> B(I) THEN 1404 


IF A$="" THEN A$="9" 


hin. Mien Minli Midi Mia Min Mn A Me abn Mi Kon Hi Ni Ma Mi Bn Mie Sie Mn Vie ie es Pe lin ii Tan Phs Mies B Mie in MR Hen die Me Mh Wen wi Mis Mie Me Mi zeen Be Mn He AK MS 


1974 
z256 
2051 
18627 
2127 
2271 
247 
18147 
1744 
179% 
1586 
Zi A4 
2176 
194% 
Pip Bh Be, 
16:31 
2517 
2085 
314 
1644 
Zar 
Z269 
be Rf) 
1427 
1574 
1550 
1118 
1346 
1971 
2361 
2085 
2350 
z331 
1827 
z246 
Z483 
2481 
1994 
1816 
3856 
2401 
2325 
23469 
2469 
1750 
1302 
1536 
2257 
2030 
1778 
1358 
1584 
z154 
1982 
2414 
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1350 
1360 
1378 
1380 
1390 
1400 
1410 
1420 
14308 
1440 
1450 
1460 
1470 
1480 
1498 
1582 
1518 
1520 
1538 
1542 
1550 
1560 
1570 
1580 
1590 
1608 
1610 
1620 
1638 
1640 
1650 
1660 
1670 
1680 
1690 
17008 
1718 
1720 
1730 
1740 
1750 
1768 
1778 
1780 
1790 
1820 
1818 
1820 
1830 
1840 
1852 
18460 
1870 
1880 
1890 
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IF Q = 1 THEN 1390 
FOR J = 1 TO 1 
B(J) = B(IJ+1) 

NEXT J 

I=@ : Q=@-1 

NEXT 1 

RETURN 


REM #xx OPGAVE wrr 

X=FNA(NA) z: IF X=P THEN 1440 

IF @ = @ OR RND(1)*.7 THEN 1470 
X = FNA(@) 5 X = B(X) 


P = X EREM anthaudern 

REM #%& OUTPUT SAMENSTELLEN #%% 
D& = A$(X) 3 Li = LEN(D$) 

et =: nu 


FOR I = 1 TO Li 
C& = MID$(D$sIs1) 
IF C$ = "==" THEN 1550 


NEXT 1 
RETURN 


REM #xx RESULTAAT Ha 

IF T £< 1 OR G £ 1 THEN 1610 
RT = INT(G#10A/T+.5) 

GOSUB 608 :ZREM xxx KOP 
LOCATE 256 

PRINT "Aantal argaven £"5$T 
LOCATE 258 

PRINT "Gaede aPrgaven #"5G 
LOCATE Zs10 

PRINT "Percentage Gaed:"sRT 
PRINT 

RETURN 

8 

REM “xe STUURMODIUJLE Haex 
GOSUB 508 REM #xx OPENING 
GOSUB 108 :REM ##« INIT 
GOSUR 608 EREM #e* KOP 
GOSUR 1440 :REM ##* OPGAVE 
GOSUR 660 REM ##x SCHERM 
GOSUB 818 :REM xx INVOER 
GOSUR 1984 :REM «xx GOED/FOUT 
IF W = 1 THEN 1750 

GOSUR 1598 :REM RESULTAAT 
END 


REM 2a® INTERNE DATAFILE 999 
DATA ver=bandsme-di=cin 

DATA huis=-vrauwswerk=man 

DATA vlie9-tuigsau-ta-ma=biel 
DATA bue=ken=-rekskin=-der=ka=mer 
DATA slaap-ver=trekswek=ker 
DATA waz=ma=chi=nesdra=0ist 


bn inn Bn Mie Hie Der Aen lin on. Mn lie in Velen Wi Vin Mike ip vain Vn Min de Pie Pi ie We Mia WaW Tin Me Mie Mn Ie He le Mn Me Ke in Ben Th Olen Vin Bie en Be ik ik en 


2192 
2137 
19465 
1773 
1982 
1792 
1894 
1478 
1744 
2960 
2972 
Z476 
1699 
19:27 
2577 
1731 
2217 
2333 
2456 
1951 
1947 
2042 
1678 
1856 
2770 
2674 
Z144 
2208 
3705 
2230 
3635 
Z291 
3887 
2077 
2170 
1758 
1986 
2254 
2259 
2274 
2335 
z30A 
2307 
2365 
z638 
2391 
2825 
1878 
2186 
3874 
4043 
4415 
4536 
AE 
4216 


198A DATA wa-ren-huissbaer=-de=r ii / 4338 
1918 DATA <STOP> / z640 


Voorbeeld 


xxx Lettergrepen XX 


mt tal © aven : 
oe Esoorden - 7 


oede an 


Verdeel in lettergrepen 
slaapvertrek ed | 


Het antwoord is 


slaap-ver-trekm.......... 


4.3 Alfabetiseren 


Dit programma traint het alfabetisch rangschikken van woorden. Op het 
scherm verschijnen vier woorden, genummerd 1, 2, 3 en 4. Door het intoetsen 
van de getallen, bijvoorbeeld 4321 geeft u de alfabetische volgorde aan. Voert 
u daarentegen nul in dan stopt het programma en verschijnt de eindscore op 
het scherm. Bij het opgeven van de volgorde mogen tussen de cijfers geen 
spaties of komma's staan. Verder moet u de RETURN-toets indrukken na in- 
voer van de cijfers. Bij een goed antwoord verschijnt een lachend gezicht op 
het scherm, bij een foutief antwoord alleen de opmerking ‘fout’. In dit program- 
ma is ook weer gebruik gemaakt van geluid. Dit is opgeslagen in A1$ en A2$. 
De bedenktijd is ingesteld op maximaal tien seconden. Door de waarde van 
variabele T2 te wijzigen in de module ‘Initialiseren’ is de bedenktijd te verande- 
ren. 

Suggestie: In dit programma wordt alleen een lachend gezichtje getoond bij 
een goed antwoord. Het zou aardig zijn, wanneer een treurig gezichtje getoond 
werd bij een foutief antwoord. 

Het kan aanbevelenswaardig zijn het programma te voorzien van een fout- 
tabel, waarin de foutief beantwoorde vragen worden opgeslagen, zodat de 
combinaties nog een keer kunnen worden gevraagd. 
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De interne datafile wordt door de module ‘intern bestand’ in matrix A$ ingele- 
zen. In de module ‘Opgave’ worden vier woorden getrokken uit matrix A$ en in 
matrix C$ geplaatst. Tegelijk wordt in matrix B de index van matrix C$ bijge- 
houden. Matrix B is een pointertabel. De module zorgt er tevens voor, dat een 
woord niet meerdere keren uit matrix A$ wordt getrokken. De vier woorden uit 
matrix C$ worden in alfabetische volgorde gerangschikt. Dit gebeurt niet door 
de woorden zelf te verwisselen, maar door in de pointertabel (matrix B) de alfa- 
betische volgorde aan te geven. De module ‘Invoer’ leest de gegevens van het 
toetsenbord en controleert tevens of het gegeven antwoord juist is. 


Programma 

10 REM #x*x* ALFABETISEREN #x / zen 
z3 KEY OFF / ATE 
38 CLEAR 5000 / 54 
4A DIM A$(50)sB(4)s C$(4) DP. 1064 
58 COLOR 316: 3 / 67 
6D SCREEN 3 / 55} 
78 OPEN "GRP:" FOR OUTPUT AS #1 7 1495 
82 GOTO 2040 / 591 
 : / 148 
102 REM #*x* INITIALISEREN &#% / 376 
118 COLOR 14515515 &£ SCREEN 253 / 1485 
128 CLS / KINA 
130 DEF USRi=&H41 :REM zchrm disable / ya 
140 DEF USR2=&H44 :REM scherm enable / leed 
158 DEF USR3=&HID :REM reset geluid P, 934 
168 DEF USR4=&HI5G:REM reset kevbrd / Db 
178 DEF FNA(A) = INT(RND(1)#A+1) / 1670 
188 F$="B1234" + CHR$(13)+CHR$ (B) / 1583 
198 A1%$ = "VISL9S11M5SSABE" f, 1354 
208 A2$ = "V15L4S11MPBOZEOZBAG" / 1489 
218 KEY 14*47 / 667 
220 RT = REM resultaat / 495 
230 GD = 1 REM Geluid aan / 479 
248 A = RND(-TIME) / 1073 
250 T = B : G = Q REM tautaal/gaed / 681 
268 Te = 10 ‘REM bedenkti.id / 5E 
270 TIME = @ / 682 
288 GOSUR 330 REM ##&* SPRITES / 814 
298 GOSUR 510 :REM «xx INT BEST / 84 
308 RETURN / 780 
318 : £ 348 
320 REM «xx INLEZEN SPRITES #*x / 596 
330 READ SP : REM AANTAL SPRITES / rd 
348 FOR J = 1 TO SP F, 1A81 
350 SDE = "" : 5C = @ / 983 
360 FOR IT = 1 TO 32 / 1038 
378 READ SD 8 SC = 8C + SD / 1418 
3830 SD$ = SD$ + CHR$(SD) / 1347 
398 NEXT 1 / 787 


400 
418 
420 
430 
440 
450 
460 
470 
480 
49 
500 
510 
520 
530 
540 
550 
56 
570 
588 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
818 
820 
830 
840 
850 
360 
870 
880 
824 
00 
910 
920 
930 
940 


READ SD : REM CHECKSUM 
IF SC = SD THEN 446@ 

SCREEN @ 

PRINT "Data van sprite "5J5 
PRINT "zin fautief”" 


STOP 

SPRITES(J) = SD$ 

NEXT J 

RETURN 

REM xxx INT BESTAND #x% 


RESTORE 2478 : NA = 50 
FOR 1 = 1 TÔ 50 


READ A$(I) 

IF A$(I) <> "£STOP>" THEN 564 
NA = 1 - 1: I= 58 

NEXT 1 

RETURN 

REM xxx TEKSTRIJ #4#x 


FOR K = 1 TO LEN(M$) 
NS=MIDS$(MSEs Ke 1) 7 MIK) AM 
DRAW"BM=M1 5 s=N5" 5 PRINT#1sN$ 
NEXT K 

RETURN 


REM #&* OPENING #ax 

DUMMY = USR1 (0) 

PRESET (28:54) 

PRINT #1s"Alfabe-" 

PRESET (28: 134) 

PRINT #1s"tizeren" 

DUMMY = USRA) 

FOR 1 = 1 TO 20208 : NEXT 1 
RETURN 


REM xxx KOP Her 

CLS : REM SCHERM WISSEN 
M$=" rw Alfabhetiseren tex" 

M = 65 : N= B £ GOSURB 600 
M$ = "aantal aPgaven lia 


M = 53 : N= 17 £ GOSUR 600 
M$ = "aantal Gaede antwaarden:" 
N = #4 : GOSUR 400 

M$ = "zet in alfabetische * 

M$ = ME + "valdarde daar het" 
M= 23 : N= 32 : GOSUR 400 
M$ = "ingeven van de nummers." 
M$ = M$ + " SChiiv. 12347" 

M= 23 £ N= 40 : GOSUR 400 


RETURN 


REM «xx SCHERM OPBOUWEN 2x 
LINF(As48) -(2408s 168): 15sBF 
PUT SPRITE @:s(96:;130):0s 1 


RE WAN NE A AG NE NE A. B NA Mr NE EL NE MEM RENE Mi NM Mir Die Mi, Wi Mt VE B MET Me Ee Vs DE Min B IN WAE MN NG Wi irt Mii 


835 
13572 
14 
2549 
7134 
776 
1370 
aa3 
6 
54A 
776 
16276 
1198 
1049 
2034 
1214 
rte PA 
1854 
4638 
866 
1596 
2156 
2318 
18274 
1120 
7aa 
936 
1555 
1479 
1899 
1546 
2065 
1686 
1951 
1220 
3a3 
1436 
976 
z671 
1872 
2797 
1940 
3414 
1659 
2975 
2935 
1989 
3305 
2139 
2018 
1338 
965 
1196 
24314 
2321 
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958 PUT SPRITE 1, (1285130) + As 2 
N64 PUT SPRITE 2: (50, 130) s 0: 3 
978 LINE(194s12) (260: 28): 15: 2F 


988 PRESET(197s 12) t PRINT #1:T 
990 PREBET (197: 20) t PRINT #1,G 


1800 
1010 
1020 
1030 
1940 
1050 
1960 
1870 
1230 
1490 
1100 
1118 
1120 
1138 
1140 
1150 
1168 
1178 
1182 
1194 
1200 
1218 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1450 
1440 
1450 
1460 
1470 
1480 
1490 
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COLOR & 
FOR IT = 1 TO 4 


N=44+ 18 : MEESTRE(ID AH" "+CH(I) 


M = 83 £ GOSUR 400 
NEXT I 

COLOR 1 

RETURN 


REM #%% INVOER #xt 

SER SO BTR B MO TE 5, ME SET 

M$ = "Geef het antwaard * 
= M$ + "<stor = B>" 

M = 23 £ N = 88 : GOSUR 600 

T3 = TIME+T2#50 

Let # A 

S$ = 5% + T& 

LINE(192:88) -(2468:965)s 155 BF 

M$ = 5% £ M = 196 : N = 88 

GOSUR 600 

T$ = INKEY$ 

IF T3 — TIME < @ THEN 1340 

IF T$ = ** THEN 1198 

IF T$z"72" THEN T$="@" 

V = INSTR(F$: T$) 

IF V = @ THEN 1190 

IF V<57 THEN 12790 

IF L<1 THEN 1150 

Lal? & S$=LEFTS(S%sL +1) 

T$ = „u 

IF V=6 THEN T$ = "" 

IF V=& AND L=@ THEN 11462 

IF V<>6 OR L=@ THEN 1140 

IF 5% = "@" THEN 1440 

L. = LEN(S$) t P = @ 


EF CSS THEN SRSBEP" „ee € LET 


FOR Emel TOL 

E$& = MID$S(S$,Is1) 

IF VAL(ES)=R(P+1) THEN P=P+1 
IF P = 4 THEN 1 = L 


IF P = 4 THEN V = 1 
ts GGW 

USR3 (0) 

ON V + 1 GOSUR 1490: 1620 
REM *% WACHTLUS #x 


FOR 1 = 1 TO (Z-V)#750 : NEXT 


RETURN 


REM xxx FOUT xx 
IF GD=1 THEN PLAY AZ$ 


Ï 


Nen Mei Mi Ve Me Men Me a Mr Me De ie Men Wind ie Mie Be ike ii Tin Ae ie ie in ee ME He ere Ne een Te Me ie Ee Ne Ne 


2377 
2335 
z407 
z49 
7495 
1447 
1639 
2391 
1867 
1432 
1487 
154 
1128 
1356 
1934 
3044 
L27 
2260 
1949 
1445 
1612 
2448 
21278 
1714 
1791 
2437 
2102 
“275 
z128 
Z084 
“1463 
ZA 
2564 
1529 
„186 
2543 
2562 
2265 
a Ef 
2815 
7003 
2190 
222 
2229 
1787 
z4a8 
vd 
EAT 
AAA 
z878 
237 
1940 
15278 
175& 
z64b 


1504 
1510 
1520 
1530 
1540 
1550 
1568 
1570 
1580 
1590 
1600 
16108 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1760 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1798 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1918 
1920 
1930 
1940 
1950 
1960 
1970 
1984 
1990 
2000 
2010 
2020 
2030 
2040 


M$ = ">> FOUT £< 

M = 83 : N= 1458 z£ GOSUR 400 
M$= "de GJaede valGarde is :" 
M = 23 : N= 108 £ GOSUB 620 
FOR I= 1 TO 4 

N = 194+I1#8 : MS=STRE(B(I)) 
M$ = M$ + * * + CSCB(I)) 

M=83 : N=184+I#8 : GOSUB 400 
NEXT IT 

RETURN 


REM xxx GOED se 

IF GD=1 THEN PLAY Al$ 

PUT SPRITE @s(96:130)s61 1 
PUT SPRITE 1s(1285138)16: 2 
PUT SPRITE 2: (50130): 10: 3 
RETURN 

REM sex OPGAVE we 

FOR I= 1 TO 4 


X = FNA{NA) 

C$(I) = A$(X) z RI) = I 
IF 1 = 1 THEN 1790 

H= @ 


FOR JJ = 1 TO El 

IF C$&(I) <> C$(J) THEN 1770 
ak MK RR 

NEXT J 

IF H = 1 THEN 1700 

NEXT I 

REM #* SORTEERVOLGORDE #% 
FOR X = 4 TO 2 STEP =1 

FOR Y = 1 TO X 

IF C$(B(X))I-CH(B(Y)) THEN 1850 
SWAP B(X)sB(Y) 

NEXT Y 

NEXT X 

RETURN 


REM #«# RESULTAAT ##% 

COLOR 155414 £ SCREEN @ : CLS 
IF T < 1 ORG < 1 THEN 1930 
RT = INT(G#1GA / T + .5) 
PRINT "#4 alfabetiseren ex" 
LOCATE 255 :£ PRINT "Aantal "5 
PRINT "arpgaven £"5T 

LOCATE 27 : PRINT "Gaede A*“5 
PRINT "rntwaarden:"5G 

LOCATE: 219 £ PRINT "Percent" 5 
PRINT "age Goed £" SRT 

PRINT 

RETURN 

8 

REM xxx STUURMODULE #3 
GOSUR 678 EREM «xx OPENING 


rt in TN OE er WM in WU Mt Mi «Wi rt ir Vi MG ME Ue WM Mi WW Wor Et NW TW Wi Wi NE Mt Ni WW Og ir Wet Wi OD ME Mo Mer U 


2850 
2060 
2070 
2080 
2090 
2100 
2118 
2120 
2130 
2140 
2150 
2160 
21708 
2180 
2190 
2208 
2210 
2220 
2230 
2240 
Z250 
2268 
2270 
2288 
2290 
2300 
z310 
2320 
2330 
z340 
2350 
2560 
2370 
2380 
2390 
z400 
z410 
Z420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2508 
2518 
2520 
2530 
2540 
2550 
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GOSUB 109 :REM #x* INIT 
GOSUB 774 :REM xx KOP 

GOSUB 1698 :REM xx OPGAVE 
GOSUB 934 :REM xx SCHERM 
GOSUB 1998 :REM xe INVOER 

IF 5% <> *"@" THEN 2070 

GOSUB 1908 :REM ##** RESULTAAT 
CLOSE #1 

END 


REM 999 INTERNE DATAFILE 999 
DATA 3 : REM AANTAL SPRITES 


REM a® SPRITE 1 98 

DATA 255:255s 192: 207: 208: 208 
DATA 211:209s 209: 207, 197: 255 
DATA 255:0:s0s0:s 255: 255 

DATA Qs 78: 341 341 541 34 

DATA 34:28:00: 255: 255: Q 

DATA @:@ 

DATA 4109 t REM CHECKSUM 


REM 29 SPRITE 2 9® 

DATA 255s255s0r 1741641 64 

DATA 1125645641 1241 0s 755 

DATA 25510: 0s As 7555 255 

DATA Js 243s 1391391 1391 139 
DATA 15912431 342551 255: 0 

DATA @s@ 

DATA 3843 : REM CHECKSUM 


REM òd SPRITE 3 @ù 

DATA @s A: 0: 78: 345 88 

DATA 2511515353: 16 

DATA 151 7:0:4:s Qs: A 

DATA 05561601 265 15271 128 

DATA 128:197:192:85 240: 274 
DATA @A:3 

DATA 16435 : REM CHECKSUM 


REM 2 TEKSTFILE dà 

DATA karzselswiin9lassfransman 
DATA fruitszautsbeer 

DATA krakadilsvarkensaar 

DATA garillastiigerstulirskrakus 
DATA dahliasraassfresiasmeester 
DATA melksbiersbaksbhalksbkus 

DATA bachtszevermsachtsgeest 

DATA havernsiavaanskerkszeeuw 
DATA <STOP:> 


AN IE NE NEN ET ENG HOE A ROTE AE MARE NE EO, Or INE EE EIN ir GE rr WE Serle Ker. Herten enn ln 


Voorbeeld 


XK Alfabetiseren kt 
waal nakeke Wtworden: 8 
Pen pT der het 


5 


zeef het antwoord <stop = 0> 


4.4 Tegenwoordig verleden 


Op het beeldscherm verschijnt in een lichtkleurige balk een zin met een werk- 
woord tussen het ‘kleiner’- en ‘groter dan’-teken (<>). Om het werkwoord 
nog extra te laten opvallen, wordt het in een contrasterende kleur weergege- 
ven. Dit werkwoord moet afhankelijk van de vraagstelling in de tegenwoordige 
of verleden tijd worden gezet. Het verwachte antwoord is dus uitsluitend de 
vervoeging. Na invoer controleert het programma het antwoord en geeft in- 
dien het antwoord foutief was de correcte verbuiging. In de interne datafile zijn 
een aantal zinnen opgenomen. U ziet dat de complete zin inclusief het te ver- 
voegen werkwoord tussen aanhalingstekens staat. Hierna volgen ‘gescheiden 
door komma's’ de tegenwoordige en de verleden tijd van het werkwoord. Het 
te verbuigen werkwoord staat tussen ‘kleiner- en groter dan-'tekens. Dit moet u 
ook doen. Het programma herkent het te verbuigen werkwoord aan deze te- 
kens. 

Wanneer u met het programma gaat werken, zult u snel het aantal zinnen uit- 
breiden. Bij de huidige hoeveelheid komen de zinnen namelijk te snel terug. 
Ook in dit programma geldt dat de laatste DATA-regel er als volgt uitziet: re- 
gelnr. DATA <STOP>, <STOP>, <STOP>. Deze regel mag niet ontbreken. De 
eerste zin in de interne datafile moet op dezelfde regel beginnen als in de lis- 
ting. 

Het programma houdt bij, welke zinnen met welke vervoeging foutief beant- 
woord zijn. Dit geschiedt in de fouttabel, matrix A. Bij het selecteren van de 
opgaven genereert het programma opnieuw de foutief beantwoorde zinnen 
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als opgave met een kans van 75%. Op deze manier traint het programma de 
gebruiker. Het is dan ook een puur ‘drill and practice’ programma. Matrix A 
bevat de foutieve antwoorden. In de eerste kolom wordt de pointer bijgehou- 
den naar de zin en in de tweede kolom de tijd. De tegenwoordige tijd heeft code 
1 en de verleden tijd heeft code 2. 
De module ‘Fout’ zorgt ervoor dat foutief beantwoorde zinnen in matrix A te- 
rechtkomen. Het maximaal aantal foutieve zinnen dat kan worden opgenomen 
is tien. In de module ‘Goed’ wordt nagegaan of een goed beantwoorde zin 
soms in de fouttabel voorkomt. Is dit laatste het geval dan wordt deze zin uit de 
fouttabel verwijderd. Dit programma maakt geen onderscheid tussen hoofd- 
letters en kleine letters. Het programma houdt eveneens rekening met lange 
zinnen. Deze worden automatisch op een spatie afgebroken en gaan op de vol- 
gende regel verder. 


Programma 

18 REM &#* TEGENWOORDIG VERLEDEN « 
20 KEY OFF 

38 CLEAR 5000 

40 DIM Z$(58:3)sA(10: 2) ,B$(20) 

5@ COLOR 1+15,15 

6 SCREEN 213 

70 OPEN “GRP:" FOR OUTPUT AS #1 

Ba GOTO 1980 

90 : 

188 REM #* INITIALISEREN &%# 

118 CLS £ A = RND(-TIME) 

120 T=0:G=0:@=0:P=g0 
130 KA = 3 : KL = 190 

148 F$="" £ AA=ASC("A") £ BB=ASC("a") 
158 FOR 1 = @ TO 25 

160 F$=F$+CHRE(I+AA) +CHR$(I+BR) 

170 NEXT 1 


188 F$=F$+CHR$E(13)+CHRE(B) +" A" 
198 Mi$ = "Zet de zin in de * 
208 M2$=" tiid." 

218 DEF FNA(A) = INT(RND(I)%A+1) 


220 


230 


GOSUB 270 :REM xxx INT BESTAND 
KEY 15"@" + CHR$(13) 


240 RETURN 

2508 : 

260 REM »** INT BESTAND LEZEN #% 
270 RESTORE 2118 : NA = 50 

288 FOR I = 1 TO 50 

298 READ Z&(Is1)sZ$(Is 2e 2$(Is 3) 
308 IF Z$(Is1) <> "<STOP>" THEN 320 
318 NA = I - 1: I= 5@ 

320 NEXT I 

330 RETURN 

340 : 

350 REM #*x TEKSTRIJ #4 

368 L = LEN(M$) 
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iet Hie Mis Mien Ae in Sie Me Bin Mie ok ii ie Vo Mode he rn 


ben Mili. Bla. odes Man. Me Win Nii A Men. Mi Ti 


370 
380 
390 
400 
410 
420 
430 
440 
450 
440 
470 
480 
490 
504 
519 
520 
538 
540 
558 
540 
570 
580 
590 
440 
610 
620 
638 
640 
650 
660 
678 
6830 
690 
700 
718 
720 
730 
740 
750 
760 
770 
788 
790 
808 
810 
820 
830 
640 
850 
360 
870 
880 
8390 
Saa 
910 


FOR K = 1 TO L 

NE=MIDS(MEsKs 1) z Mi=(Kl)&btM 
DRAW"PM=M1 33 Ns" 4 PRINT H#1sN$ 
NEXT K 

RETURN 


REM «xr KOP Her 

COLOR 1554,4 # CLS 

M$="® TeGenwaardia verleden #” 
M = 53 : N= B £ GOSUR 360 
M$ = "aantal oPrdavern ee 
M = 53 : M= 17 £ GOSUR 3460 
M$ = "aantal aaede antwaardent" 
N = 20 : GOSUR 36Q 
RETURN 

REM #xx SCHERM OPBOUWEN #&# 
COLOR 15 
LINE(194s 12) -( 768: 28) s 41 BF 
PRESET (203: 12) : PRINT #1+T 
PRESET ( 28.3: 20) : PRINT #1:G 
LINE (Qs 34)-(255s64)s 185 BF 
LINE (@:45)-(255s 190) s 4: BF 

M$ = MI$+BS+MZE : M=Z3 8 N=75 
GOSUR 364 

BG = 23 £ N= 36 

FOR I = 1 TO KL 

IF I= PL THEN CR=1 ELSE CR=4 
COLOR CR : M$=BE((I)) £ M=BG 
GOSUR 3468 : L=LEN(BS(I)) 

BG = BG +L%*ó+6 

IF RG > 203 THEN RG=2Z3 : NeN+8 
NEXT I 

COLOR 1 

RETURN 


REM xxx INVOER xx 

COLOR 1 

M$ = "Wat is Je antwaard " 
M$ = M$ + " Zstap=0>" 

M = 22 : N= 9A £ GOSUR 3460 
COLOR 15 

Gem EL ETR UN pd me ol 
ee Let 1 

S$ = 5% + T& 
LINE(191s90) -(760: 100) 5 45 EF 
M$ = 5% : M= 197 tt N= 9B 
GOSUR 360 

T& = INKEYS 

IF T$ = "*" THEN 850 

V = INSTR(F&:;T&) 

IF V = A THEN 850 

IF V > 52 THEN 920 

IF V MOD Z 22 A THEN V=V+1 
T& = MIDE(F$sVs 1) 


Ee ES Re sets Sato ss Ee Be Ee ie Se Ee eier Wir Se En DES Er ie Ki TEE Ks A ME EE SE Se MENG Si A AE 


za 
930 


IF V<>54 THEN 96A 
IF LX{1 THEN 810 
L=l-2 8 S$=LEFTS(S$sL +1) 
„pm, PP 
IF V=z53 THEN T$ = "" 
IF V<>53 OR L=0 THEN 800 
IF S% =: "3" THEN 1113 
Van ETeET EEL es ed 
>= S% THEN 1220 

de EE TEI a OE EA A ES 
ON V + 1 GOSUR 1140512500 

< 1 THEN 2 = @Q 
IF V = 1 THEN 1108 
M$= "2FOUTSS Het antwoord * 
M$ = M$ + "maet zin :" 
M = 23 : N= 124 : GOSUR 360 
M$ = A& z: M=1AA : COLOR 18 
N=116 £ GOSUR 360 
FOR IT = 1 TÔ (P-V)#750 : NEXT I 
RETURN 


== 
nl 
md 


REM #xw FOUT sex 

IF @ + 1 > 12 THEN 1220 

KA = KA — 1 

IF KL=19@ AND KAS31 THEN 1190 
IF KL=165 AND KA2=3 THEN 1190 
KL = 194 : KA = 34 

K = 8 # KA 
LINE(KsKL-20) -(K+85 KL) s Os BF 

GQ = 0 + 1 : AC@s1)EX £ AQ 2) =Y 
RETURN 


REM saw GOED HK 

M$=" > -GOEDSS" 

M= 95 2 N= 128 : GOSUR 360 
REM INDEX UIT FOUTTABEL 

FOR 1 = 1 TO Q 

IF A(Is1)<>X THEN 1390 

IF A(Is2)<>Y THEN 1390 

IF GQ = 1 THEN 1370 

REM xx INDEX VERWIJDEREN «% 
FOR J = 1 TO Q-1 

ACJs1) = ACT+1s 1) 

A(Js 2) = ACTtLs 2) 

NEXT J 

I= Qt 0=Q=-i 

IF @ < @ THEN @ = @ 

NEXT I 

RETURN 

REM #xx OPGAVE ker 

IF Z > 5 THEN Y = Z ELSE Y = 1 
RTE 5 THEN YE 2 
FNA(Y) 

A({NA) £ IF P=X THEN 1460 


Y = 
Ys 
X=FN 


NEL, SE Ms ENE Si Nike DAEMEN ME IGN ME AEN Ni in WV WE ME VTA NV NE OEE WG WW Wit Di Mit VSN? WS MM, Mie WE Vi iS MEG 


1470 
1480 
1490 
1500 
1510 
15208 
1530 
1542 
1550 
15460 
1570 
1580 
1590 
1600 
1610 
1670 
1630 
164 
1650 
1660 
1670 
16808 
1698 
1700 
1710 
1720 
1730 
1740 
1750 
1768 
1770 
1780 
1790 
1820 
1818 
1820 
1530 
1840 
1850 
1860 
1870 
1380 
1890 
1900 
1914 
1920 
1934 
1940 
1952 
1968 
1978 
1980 
1990 
2000 
2010 


IF RND(1)>.7 OR G=@ THEN 1510 


REM «* FOUTIEVE ZIN «* 

Ì = FNA(G) 

tm ACtstt Ez Vm ALTE 

R$ = "tedenwaardige" 

IF Y = 2 THEN B& = "verleden" 
A$ = ZE(XsY + 1) REM antwaard 
rn X REM anthaudern 
REM s#* ANTWOORDZIN #%# 

A=i & KL=l : I$=Z$(Xs1) 
H=INSTR(I%," ") 

IF H = A THEN 1630 
BE(KLO=EMIDS (Is AsH-1)t: LaLEN(IS) 


IF INSTR(BE(KL)s"<") THEN PL=Kl 
KLEKL+1 % I&=RIGHT$(I$sL-H) 

IF KL £ 28 THEN 1570 

BE(KL)=IS 5: T$ = *"" 

IF INSTR(BS(KL)s"<") THEN PL=KL 
FOR I = 1 TO LEN(A$) 

H$ = MID$(AS,Is1) 

H = INSTR(F$sH$) 


IF H MOD 2 <> @ THEN H=H+t1 

T$ = T& + MID$(F$sHs 1) 

NEXT I 

A$ = T& : T$="" 

RETURN 

REM xx RESULTAAT xx 

R= A 

IF T < 1 ORG < 1 THEN 176808 

R = INT(G#108 / T + .5) 

GOSUR 440 : REM xe KOP 
PRESET (243: 127) : PRINT #1: T 
PRESET (203: 20) : PRINT #15G 
M$="percentade Gaed ge 


M = 53 : N= 28 £ GOSUB 363 
PRESET {243: 28) : PRINT #isR 
LINE(@s46A) -( 2650: 180) + 9: RF 
PRESET (85: 74) 

D$ = "UITSTEKEND" 

IF >= 75 THEN 19140 

: GOED ’ 

IF R := 58 THEN 1910 

D$ = " SLECHT * 

PRINT #1sD® 

M$ = "* t PRESET (ZO: 1680) 
PRINT #1s"Druk een toets in" 
M&=INKEY$ £ IF M$="" THEN 1940 
RETURN 


tt DO | 


REM #exe STUURMODULE Hex 
GOSUB 118 :REM «xx INIT 
GOSUR 432 :REM «ex KOP 
GOSUR 1430 :REM #4 OPGAVE 
GOSUR 548 REM #** SCHERM 


ME MENNE: MENE NG PRN NE NGN WEN Wi ME Nt Mist Ne Ni MAG MMM Nier iz cis Mi ME Wit Nii ii WW Vi Vi Bin 


Ni MN A MENE ND DEN 


2987 
3215 
1999 
z4n7 
3136 
3250 
Gelk 
1769 
1997 
2674 
2437 
z409 
3356 
3401 
3136 
2580 
Z441 
3441 
2632 
2475 
2542 
2939 
z084 
za 
2299 
2200 
1788 
2016 
1941 
ZIE 
2764 
z316 
3297 
3293 
3867 
2960 
3342 
3159 
2650 
28361 
2837 
2592 
2845 
2712 
25,39 
5d 
4111 
Bie 
z4 30 
z018 
2246 
z510 
2525 
2584 
2547 
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2078 GOSUR 740 :REM #x*x INVOER / 2559 
2038 IF S% <> "@" THEN 2000 307 
2040 GOSUB 1752 :REM #&# RESULTAAT / 2629 
2058 CLOSE #1 / z508 
Z068 END )Á 2275 
2078 : / 2123 
2088 : / 2138 
2090 REM @9® INTERNE DATAFILE 999 / 2346 
2100 REM @9 ZINsWERKW TTsWERKW VT 99 / Z594 


2118 DATA "Piet <Zvinden?> het maken van een PraGramma 
leuk." 

2128 DATA vindts vand 

2138 DATA "Ik <gGaan> naar de hbiascaarp." 

214 DATA gasging 

2158 DATA "<Ziin? u daar naar tue Geweest. 7" 

2160 DATA BerntsWasz 

2178 DATA "hiii Zriiden> naar Amsterdam." 

2188 DATA riidtsreed 

2198 DATA "Ora en ama <kamen> met de trein uit Utrecht. 

2208 DATA kamenskwamern 

22108 DATA "Jii <maeten> naar de tandarts." 

ZE20 DATA maetsmaest 

zeen DATA "Jaar <warden> met de auta van huis argehaald. 

22408 DATA wardtswerd 

ad DATA "De paarden Srennent aver de renbaan naar de 
eindstreer. 

2268 DATA rennensrenden 

2278 DATA <STOPEs <STOP>s £STOPE 


Voorbeeld 


* Teaenwoordiag verleden 


aantal opgaven 
aantal 4oede antwoorden: 


<Zijn> u daar naar toe geweest. 7 


zet de zin in de tegenwoordige tijd. 
Hat is je antwoord <stop=0> 
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4.5 Maak een woord 


Dit programma is ontwikkeld voor kinderen die net een beetje kunnen lezen. 
Op het beeldscherm verschijnt een paardenrenbaan met twee paarden bere- 
den door jockeys. Het paard met de witte jockey wordt bestuurd door de com- 
puter. Onder in het scherm verschijnt een woord, waarvan de eerste of de laat- 
ste letter ontbreekt. Het programma geeft drie letters die op de ontbrekende 
plaats kunnen worden ingevuld. Eén van de letters past in ieder geval op de 
ontbrekende plaats. Het is de bedoeling zo snel mogelijk deze letter in te toet- 
sen. Is het antwoord goed dan zal het paard met de witte jockey harder gaan 
lopen. Op deze manier worden punten verzameld. Zolang het paard van de 
speler voor het paard van de computer loopt, krijgt de speler extra punten. 
Blijkt het antwoord foutief te zijn dan gaat het paard van de speler langzamer 
lopen en kan het paard van de computer inhalen. In dat geval kost het dus pun- 
ten. Het paard dat als eerste over de eindstreep gaat, heeft gewonnen. 

In de module ‘Opgave’ wordt een woord getrokken. De eerste of de laatste let- 
ter van het woord wordt in matrix C$ geplaatst inclusief twee willekeurige let- 
ters. Met deze drie letters wordt de multiple choice vraag opgebouwd. 

Het kan best voorkomen dat er een woord wordt getrokken, waarbij op de lege 
plaats verschillende letters uit matrix C$ kunnen worden ingevuld. Stel, het 
woord ‘BOOM’ wordt getrokken. Het programma trekt als willekeurige letters 
X en Z. De multiple choice vraag bestaat dan uit de letters B, X en Zen op het 
scherm .OOM. Op de plaats van de punt kan zowel een Z (ZOOM) als een B 
(BOOM) worden ingevuld. We gaan er in dit voorbeeld van uit dat beide woor- 
den (ZOOM en BOOM) in de interne datafile voorkomen. Geeft de speler aan 
dat hij Z kiest dan zal het programma, wanneer er geen voorziening was getrof- 
fen, het antwoord foutief beoordelen. Het woord BOOM was getrokken en niet 
ZOOM! Er zijn echter aan het programma een aantal modulen toegevoegd om 
dit probleem te omzeilen. De module ‘Antwoord’ leest de ingetoetste letter, 
waarvan de gebruiker denkt dat deze op de plaats van de punt moet staan. Hier- 
na zal de module ‘Goed/fout' controleren of het één van de mogelijk drie letters 
is. Komt de letter voor dan zal de ingetoetste letter op de plaats van de punt 
worden geplaatst. Het aldus ontstane woord wordt aangeboden aan de modu- 
le ‘Zoeken’. In deze module wordt nagegaan of het woord in de interne datafile 
voorkomt. Is dit het geval dan wordt het woord goed gerekend, ondanks dat er 
een ander woord was getrokken. Komt het niet voor dan is het antwoord on- 
juist. 

Daar er in totaal vijftig woorden kunnen worden opgeslagen in matrix B$, is 
gekozen voor een snelle zoekmethode. Deze zoekmethode stelt drie voorwaar- 
den aan de rij woorden. Ten eerste moeten de woorden in dit programma alle- 
maal met kleine letters in de interne datafile staan. Ten tweede mogen geen 
dubbele woorden voorkomen en ten derde moeten de woorden in alfabetische 
volgorde staan. Deze laatste eis geldt wel voor de zoekmethode, maar geldt 
niet voor de interne datafile. In het programma is in de module ‘Inlezen woor- 
den’ een sorteermechanisme opgenomen dat de woorden in alfabetische 
volgorde zet. U moet er dus alleen op letten dat de woorden in kleine letters 
worden ingetoetst en dat er geen dubbele woorden voorkomen. Het verdient 
aanbeveling het aantal woorden in de interne datafile uit te breiden. U moet er 
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wederom op letten dat u de interne datafile afsluit met de volgende BASIC- 
regel: regelnummer DATA <STOP>. 

In het programma wordt bij invoer geen onderscheid gemaakt tussen hoofd- 
letters en kleine letters. De conversie naar kleine letters doet het programma. 
De maximale bedenktijd voor een vraag is ingesteld op vijf seconden. Indien u 
deze tijd wilt wijzigen, moet u de waarde van variabele T2 wijzigen. Deze varia- 
bele vindt u in de module ‘Initialiseren’. Deze staat vooraan in het programma. 
In dezelfde module komen ook de strings voor waarin de melodietjes zijn opge- 
slagen. Dit zijn A1$, A2$ en M$. 

Na de module ‘Initialisatie’ volgt de module ‘Grote Karakters’. Deze module 
produceert lettertekens in vergrote vorm. In de variabele C$ worden de karak- 
ters gedefinieerd die moeten worden vergroot. De vorm van het karakter wordt 
dan uit de karaktergenerator gelezen en tijdelijk opgeslagen in matrix S$. Wan- 
neer de karakters nodig zijn, worden zij aan een sprite toegewezen, zodat ze 
vier keer zo groot op het beeldscherm verschijnen. Dit toewijzen geschiedt in 
de module ‘Goed/fout’. 


Programma 

18 REM sx MAAK EEN WOORD xx / 228 
z0 CLEAR 5000 / 576 
30 DIM B&(5A)sCH(I),K(15) s SE(LZ7) / 1467 
40 KEY OFF / 49E 
58 GOTO 3334 / 54 
ba : / 118 
7D REM ##x INITIALISEREN #% / 346 
BA SCREEN @ :£ LOCATE 2110 / 1765 
GA PRINT "eventies Geduld aub." Pd 2568 
188 GOSUR 540 REM #xx GROTE KARAK / 637 
118 COLOR 15555 £ SCREEN 212 / 1386 
124 HC = Q £ HH = B / 679 
138 OPEN "GRP:" FOR OUTPUT AS #1 / 1259 
140 A$ = "[F-1) = Stappen spel '" / 2121 
158 X£ = 20 : YZ = 88 £ GOSUR 1430 bj 1451 
168 E$ = "" 8 HC = 1 / 741 
178 FOR IT = 1 TO 26 / 851 
188 E$ = E$ + CHR$(I+64) +CHRE(I+96) / 1667 
190 NEXT 1 / 582 
200 Ai$ = "V1ISL9S11M5SARBE" / 1354 
218 AZ$ = "V15L9SBM3IGFE" / 1345 
220 M$ = "T145V15L9S1 1MSSFGAHA+GGFR" / 2020 
230 M$ = M$ + "+FGAHA+GGFRG" / 1377 
248 KEY 19 "7" & HC=1 / 1904 
250 DEF USRI=&H156 :REM kevbrd leeg / 1282 
2460 DEF USR2=&HIA REM Geluid leeg / 1843 
278 DEF USR3=&H41 :REM scherm disable / 1450 
280 DEF USR4=8&H44 :REM schrm enable / 1864 
298 DEF FNA(A) = INT(RND(1)#A+1) Dd 1798 
308 DEF FNZ(2) = Z MOD 500 / 1440 
318 GOSUR 750 REM Haex SPRITES / 850 
32@ GOSUB 940 :REM #4 INLEZ BEST / 861 


124 


332 
34 
350 
360 
370 
338 
390 
440 
418 
420 
430 
440 
452 
460 
470 
480 
490 
500 
512 
520 
532 
540 
550 
560 
570 
588 
590 
620 
12 
620 
630 
640 
650 
660 
670 
638 
64 
740 
710 
720 
734 
740 
758 
768 
770 
780 
790 
800 
818 
azo 
830 
8408 
858 
8540 
878 


A = RND(-TIME) 


REM rezet rund 


GD = 1 REM geluid aan 
T2= 5 REM bedenktiid sec 
G= A : T = @:REM Goed/faut 

NI = 1 REM niveau 

RT = ‘REM resultaat 

BB = 7 REM stand 1 

CC = 4 REM ztand 7 

XB = 230 REM paardi x-ctard 
XC = 230 REM paard ==raard 
VB = 90 REM paardi v=-caurd 
YC = 40 REM Paard? v=-caard 
PR = @ REM varige vraad 
FI = 4 REM winnaar 

TE = @ :REM punten 

TIME = @ REM klak = @ 

TS = 34@ REM zsreeltiid 

TS = T8 « 54 

RETURN 


REM #* GROTE KARAKTERS 


RESTORE 3550 
FOR IT = @ TO 15 
READ K(I) 

NEXT 1 


REM #x* KARAKTERS ZEVERGROOT ## 
ST = BASE (2) 
C$="akrdefghijklmniararstuvwxvra?" 
FOR ITI = 1 TO LEN(CH) 

A$ == "u 8 E$ El nu 

C = ASC(MID$(C&s Ts 1)) 

FOR J = @ TO 7 

VPEEK(ST+C#8+J ) 

INT(GE/16) : GE = GE MOD 16 
AB+CHRE(K (GI) )ACHRE(K (GI) DD 
BE+CHRE(K (GE) +CHRE(K (GE) 
NEXT J 

S&(T) = A& + B& 

NEXT TI 

RETURN 


1D 
_ 
uut u 


REM #** SPRITES INLEZEN «ex 
RESTORE 2410 

READ SP REM aant sprites 
FOR J = 1 TO SP 

SD$ = "" £ 5C = @ 

FOR I = 1 TÔ 32 

READ SD : SC = SC + SD 

SD&$ = SD& + CHRÉ{SGD) 


NEXT TI 
READ SD REM checksum 
IF SC = SD THEN 890 


SCREEN B : COLOR 1515454 
PRINT "Data van sprite!" sJ5 
PRINT "ziimn tautief." 
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828 STOP 

390 SPRITES(J) = SD% 

AA NEXT J 

918 RETURN 

Pre : 

FIA REM Hek INLEZEN WOORDEN Ht 
GAAN = 50 : RESTORE 4140 

958 FOR IT = 1 TÔ 58 

96 READ B&CT) 

978 IF B&E(I) <> "SSTOPZ" THEN 99A 
988 N= T-1 t 1 = 50 

9D NEXT IT 

1048 REM #x* SORTEREN %% 

14810 FOR IT = 2 TO N 

1920 X1 = 1 2 X2 = 1 

1038 X3 = INT((XE-XIN/E) + X1 
1040 IF B&(I) < B&(X3) THEN 1070 
1050 IF B&(I) > BE(X3) THEN 1490 
1A4A XP = X3 

1070 IF XZ = X3 THEN 1120 

1088 XZ = XZ £ GOTO 1034 

1490 IF X1 = X3 THEN 1170 

1108 X1 = XZ : GOTO 1030 

1119 REM * WISSELEN # 

1120 IF T = XZ THEN 1180 

1130 HÉ = BE(I) 

1148 FOR J = IT TO XE+1 STEP —1 
1150 RE(J-1) 

1148 NEXT J 

1179 BE(XA) = HÉ 

118A NEXT IT 

1198 RETURN 

1700 « 

1218 REM #&x RIJDEN Kx 

1228 IF XB > 230 THEN XB=230 : TE= 
1230 XC = XC — .&*HH 

1248 IF XBS30 OR XCS30 THEN FI=l 
1550 IF XB £ XC THEN TE=TE+. 5#HH 
1268 LINE (Blstii)-(140s 119) s As RF 
177A DRAW "RMO: 4157" 5 COLOR 1 
1230 TE=TE+RH : IF TESO THEN TE=@ 
12790 PRINT #1« INT(TE) 

13908 IF BR=i THEN BB=4 ELSE BB=2 
1318 IF CC=Z THEN CC=4 ELSE CC=Z 
1328 PUT SPRITE 1: (XR: YB)s 15: 1 
1330 PUT SPRITE 2s (XBs YR) s 14 BE 
1340 PUT SPRITE 3s (XB+16: YR): 11 RBE+1 
135A PUT SRRITE 41 (XCs YC) 143 1 
1368 PUT SPRITE 5s (XC YC)s 1e CC 
137@ PUT SPRITE bs (XC+1bs VC) s 14 CCI 
138A IF FI = @ THEN 1404 

1398 IF XBSXC THEN TE=TE+1AG : FI=i 
1484 RETURN 

1410 * 

1420 REM xx TEKSTRIJ #%# 


m 
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1430 
1440 
1450 
1460 
1470 
1484 
1490 
1503 
1510 
15240 
1530 
1540 
15540 
1560 
1570 
1582 
1590 
1600 
1614 
1620 
1430 
1442 
1650 
1660 
1670 
14682 
1694 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1340 
1810 
1870 
18,30 
13404 
1850 
1364 
1874 
1880 
1 
1904 
1918 
190 
1930 
1940 
1950 
1964 
1970 


HB = HH 

FOR J = Ì TO LEN(AE) 

IF J MOD 18570 OR HC=B THEN 1470 
GOSUB 1270 :REM #xx RIJDEN 
CH=MIDE(AEs Js 1) ft X3 = J6-bFXE 
DRAW "RM=X33s=VZ3" 4 PRINTHIs C& 
NEXT J 

HH = HB 

RETURN 


REM sx BEELDSCHERM #xx 

DUMMY = USR3((A) sREM scherm uit 
COLOR 14555 & CLS 

LINE (A20) (2554 149) «Sa RE 
LINE (@s110)=-(#55: 110) s 1 

LINE (@s411)-(255s 119) s Ze RF 
LINE (As 129) (455, 120) s 1 

LINE (@s121)-(255:159)s 11 BF 
LINE (@s 1460) (255: 160) s 1 

LINE (@s 161) (2551189) s Ze BF 
LINE (3,190) (2551190) s 1 
CIRCLE (183:18)s17: 10 

PAINT (133518): 10 

REM #x BERGEN #% 

RESTORE 409 REM bergen 
FOR IT = 1 TO 8 

READ AlsBi 

IF I = 1 THEN 1720 

LINE (AZB) (Als Bids 1Z 

ZeAl 8 BE=Bi 

NEXT T 

PAINT (48520) s 17 

Ab="Scaure £* 8 COLOR 1 

Xaz=170 8 Yell ft GOSUB 1437 
A$="Maak een waard t" 

XE=E0 8 YZ = 167 £ GOSURB 1430 
LINE(@As59) (7551108) 1 105 RF 
LINE (30s 59) (30 198) s 15 

PUT SPRITE 1: (XBsYR)s 1511 

PUT SPRITE 5 (XBR: YR) s 15 RR 

PUT SPRITE Zes (XBRA16s YR) a 1nREH1 
PUT SPRITE 4 (Xs YC) ssd 
PUT SPRITE 5s (XC VC)e 1e CC 
PUT SPRITE &s (XC+r16sYC)s 1e CCH1 
DUMMY = VSR4(A) REM scherm aan 
RETURN 


REM #% GOED/FOUT aak 

IF W=B OR FIA THEN 2150 

IF INSTR(FS&sI$)=0 THEN 1960 
RHel & Af=" Goed" 2 D$&=Al® 
GOSUR 2570 :REM #&# ZOEKEN 
IF H St A THEN 1978 

Rij) &t A$="Faut! & D$ = AZS 
TaT+l 2 IF RH=t THEN G=Gtl 
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AAS 
ard 
A74 
A41 
2989 
3241 
1843 
183453 
1920 
1578 
1874 
E47 
Z44 
ZE34 
2750 
252 
2712 
34 
z3A0 
305 
Z06 
z740 
LI 7 
2785 
EAS 
2313 
207 


Ee 
z17/6 


Kete 


1980 
1990 
zag0 
2010 
2020 
2030 
2048 
2050 
zaen 
2070 
2050 
z090 
2100 
2110 
2128 
2138 
2140 
2150 
160 
2178 
2180 
2190 
Z200 
z710 
Z220 
zZ230a 
2240 
2250 
2260 
2270 
ze80 
ZE 
2300 
2310 
2320 
2330 
z340 
2350 
z360 
2370 
2380 
2390 
2400 
2410 
Z4z0 
74350 
2440 
2450 
2464 
2470 
2480 
2490 
250 
2512 
2520 
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COLOR 1 

LINE (215s111)-(255,119)s 3e BF 
DRAW "BM215,;112" 2 PRINT#1 sG 
XZ=2A : Y2=11Z £ GOSUB 1430 
COLOR 4 : A$=R$(G) 

X2=128 : VZ=145 £ GOSUB 1430 
SPRITE$(30) = S$(RK) 

PUT SPRITE 3@:(9A:130) s 4: 33 
DUMMY=USRZ(0) :REM reset geluid 
IF GD = 1 THEN PLAY D% 

HH = 1 

FOR I= 1 TO 18 

XB = XB + RH&-1 

FOR J=i TO 50 £ NEXT J 

GOSUR 1220 

IF Fl > @ THEN I=1@ 

NEXT TI 

LINE (20s111)-(88:119) s 3: BF 
RH = 3 

RETURN 


REM #%% OPGAVE #xx 

IF TE-88 THEN NI=Z ELSE NI=1 
GEFNA(N) & IF © = PR THEN 2200 
LKEFNA(NI) & K$=R$(C0) 

L = LEN(K$) £ PR=QG 

IF LK=1 THEN Lt=? ELSE Liel. 
YVEEMIDS(KSs Joli) 
ZE=MIDE(KSsL 1» L.) 

C$(1)=Y$ £ G6 = ", "478 

IF LK = 1 THEN 2300 

C$(1) = 28 8 G$ = YE + "‚*" 
RK=INSTR(E Ss CH(I)) 8 RKERK/Z 
AZASC(CH(1N) & HH=EB £ GOSUB 1220 
B = FNA(Z5)+ASC(*a") 

C = FNA(ZS5)+ASC(*a") 

IF A=zB OR A=C OR B=C THEN 2320 
CECZ) =CHRE(RB) £ CH(S)ECHRE(C) 
J = FNA(3) £ K = FNA(H) 

IF J = K THEN 2360 

SWAP C&(J) 2 C& CK) 

F$ = C$(1)4CH(LIACH(H) 

RETURN 


REM #*x SCHERM OPBOUWEN 
LINE (6B:121) (2005159) s 11 BF 
LINE (@s111)-(58:119)s 3s RF 
LINE (124,125) (1244 155) s 1 
PUT SPRITE 30: {90s 1.30) s As 34 
COLOR 1 £ HH=B : GOSUBR 1220 
FOR I = 1 TO 3 

J=Ik1A+115 #£ DRAW “BMI15s=J5" 
PRINT #1sC#(I) 

NEXT I 

XZ=128 £ YZ2=135 : A$=G$ 
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3238 
3182 
3196 
31834 
3418 
AAL 

4915 
35403 
3359 
JE 
43823 


2530 
2540 
2550 
2560 
2570 
27580 
2590 
2600 
2610 
2620 
2638 
2640 
2650 
2660 
2670 
74680 
24690 
2700 
2710 
2720 
273 
2740 
2750 
2760 
2770 
2780 
z790 
2800 
2810 
2820 
283 
2840 
z850 
28608 
2870 
2880 
zag 
2900 
z91A 
2920 
2930 
2944 
2950 
26 
2970 
2980 
2990 
3000 
3210 
3020 
3430 
3040 
3050 
3060 
3070 


GOSUB 1430 :REM xx TEKSTRIJ 
RETURN 


REM xx ZOEKEN 
H= 8: Xi = 1 8 X2= N+E 1 


X3 = X1 + INT((XZ-X1)/Z) 
HH = B £ GOSUR 1220 

IF H$ > B$(X3) THEN 2650 
IF H$ < 2&(X3) THEN 2630 


XE=X3 8 O=X3 8 RKERS/Z 
IF X2 = X3 THEN 2670 

X2 = X3 £ GOTO 2580 

IF X1 = X3 THEN 2670 

X1 = X3 £ GOTO 2580 

RETURN 


REM #*x ANTWOORD ##x 

GOSURB 2430 :REM #*x SCHERM OPB 
HH=1 7 GOSUR 1220 :REM «xx RIJDEN 
CREIL £ W=B £ DUMMY=USRI (B) 

IF Li=2 THEN LZ=1i ELSE LZ=l 
L2=L2b+1277 5: T5=TIME+T2#50 

IF TS-TIME<=Q OR FI:@Q THEN 3020 
IF TIME MOD 5 <> @ THEN 2800 

IF CR=11 THEN CR=1 ELSE CR=11 
COLOR CR : DRAW "BM=L25s135" 
PRINT #14". " 

IS=INKEYS : IF 1$="" THEN I$="@" 
IF J& = "7" THEN 3020 

XB=XB-.5 £ HH=l tf GOSUR 1220 
RS=INSTR(ESs 1$) 

IF RS = @ THEN 2870 

IF RS MOD 7 <> @ THEN RS=RS+1 
I% = MID$(ES,RSs 1) 

T3 = T5 — TIME 

IF T3>@ AND RS5=@ THEN 2750 

IF RS=@ THEN I$="2" 

H$= 1$+Z% 

IF LK = 2 THEN H$ = Y$+1I$ 

COLOR 11 £ DRAW "BM=L25s135" 
PRINT #15 ".*" 8 COLOR 1 

DRAW "BM=L254,135" : PRINT#1sT® 
W= 1 

IF RS5=8 THEN RS = 54 
SPRITE$ (30) =S$(RS/Z) 

PUT SPRITE 30: (90, 130) s 1 s 30 

IF FNZ(TE)>@ OR TE=A THEN 3020 
T2e T2 == «8 

IF T2 < 1 THEN T2 = 1 

RETURN 


REM xx RESULTAAT xx 

RT=@ & COLOR 1 : HC = @ 

PUT SPRITE 30: (9A: 130): A: 30 
IF T=@ AND G=@ THEN 3090 
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3114 
3020 
24643 
2836 
3483 
3774 
347 
3743 
3749 
4075 
361 
3556 
3640 
ben fn 
3150 
2738 
2966 
3285 
3403 
4275 
4208 
4270 
4491 
4158 
4388 
4326 
3429 
44 3h 
3754 
42R4 
3795 
1769 
4388 
3772 
EL Je | 
4262 
3211 
3347 
WALL 
4415 
ASP 
4588 
3147 
411 
4182 
4457 
4498 
473 
3943 
3502 
3888 
3316 
4121 
4516 
4 A4 
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3080 
300 
3100 
3110 
3120 
3130 
3140 
3150 
31460 
3170 
3180 
3190 
3200 
32108 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3322 
3310 
3320 
3330 
3340 
3350 
3360 
3470 
3380 
3390 
3400 
3418 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
4500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
4590 
3408 
3610 
3620 
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RT=ZINT(G#100/T+. 5) 

LINE (@s161)-(255: 198) s 2: BF 
LINE (@s121)-(255s159)s11s BF 
A$="Aantal aPpaaven :" + STR$(T) 
X2=24 £ YZ2=i6Z 8 GOSUB 1430 
A$=" Aantal Gaed :“ + STR$(G) 
X2=20 : Y2=17Z 8 GOSUR 1430 
A$="Percentade Gaedt" + STRE(RT) 
XZ=20 : Y2=182 £ GOSUB 1430 

A$ = "Punten :"+STRS(INT(TE)) 
XZ = 15Q : YZ2=182 : GOSUB 1430 
IF FI<>2 THEN 3220 

A$ = "Je hebt Gewonnen |" 

XZ = 150 : YZ = 172 : GOSUB 1430 
DUMMY=USRZ (A) 

LINE (@s111)-(168:119)s 3: BF 
A$="Druk een taets in '* 

Xi=20 : YZ2=l17 : GOSUB 1430 

IF FIl=Z AND GD=1i THEN PLAY M$ 
IF PLAY(@) = —-1 THEN 3270 
DUMMY = USR1(0) : RT = 100 
A$S=INKEYS$ : IF A$="" THEN 3290 
RETURN 


REM xxx STUURMODULE ax 
GOSUB 39 REM xx INIT 
GOSUR 1540 :REM #x*x BEELDSCH 
GOSUR 2700 :REM ### OPGAVE 
GOSUR 2700 :REM #%*# ANTWOORD 
GOSUB 1918 EREM sx GOED/FOUT 
IF W<>A AND FI=@ THEN 335@ 
GOSUBR 3050 :REM #** RESULTAAT 
COLOR 155414 t SCREEN @ 

DUMMY = USR2(A) £ CLOSE #1 
LOCATE 2:10 

PRINT "Naad een keer <J/N>"S 
PRINT * “ 8 LOCATE 27:10 
A$ = INPUT$(1) 

H = INSTR("JiNn"sA$) 

IF H = @ THEN 3420 

IF H < 3 THEN 3330 

END 


REM 299 INTERNE DATAFILE 999 


REM 29 HULPWAARDEN K(I) 99 
DATA @s 3512515548: 51 

DATA 68:63, 197195: 204 
DATA 207: 240: 244: 2527 255 


REM 92 PLAATJES && 


DATA 5 REM aantal sprites 
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4154 
4473 
4574 
53AA 
4470 
5066 
4491 
5482 
4512 
5002 
45834 
4150 
5018 
4513 
4106 
4597 
5123 
4595 
4843 
4514 
4595 
4812 
3720 
3368 
3594 
3818 
3926 
3930 
3945 
3957 
4749 
4974 
461 
481 2 
4051 
538 
4804 
4173 
4655 
4798 
4310 
3705 
3556 
3568 
3796 
3588 
3816 
4567 
44690 
4793 
4438 
3866 
3658 
3945 
5678 


3630 
3640 
3650 
3660 
3670 
46830 
340 
3700 
3718 
3720 
3730 
3740 
37508 
3/60 
3770 
3782 
3790 
3300 
3818 
3820 
3830 
3840 
3850 
3460 
3870 
3384 
3890 
300 
3918 
3920 
3930 
3940 
3950 
364 
3974 
3980 
3998 
4402 
4318 
4020 
4030 
4044 
4050 
4052 
4070 
40830 
4090 
4108 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
41808 


REM 99 SPRITE 1 a 

DATA 313,0: A: Qs 7 

DATA Ass: 2: As A 

DATA 0:00, 0:03; 178 

DATA Z40Os 748: 2481 248: ZA4s 64 
DATA 9bs rs (As As As Q 

DATA @s@ 

DATA 1541 :REM checksum 


REM 99 SPRITE 7 @à 

DATA Qs: 165565 124: 252 
DATA 1217141 3: 71 28 

DATA 40580: 1450: 32: 0: Q 
DATA @s@:4: Bs A: 255 

DATA 254s254s 31s 5e is 1 
DATA @sQ 

DATA 16227 :REM checksum 
REM 9d SPRITE 3 @& 

DATA @:0:0;s 3: A: 4 

DATA @A:0,1285645s 48: 8 
DATA 1971371144185 0: 4 
DATA @sAs@As A: As A 

DATA @,A:@: Os 0: Q 

DATA @s@ 

DATA 624 REM checksum 


REM dà SPRITE 4 àâ 

DATA @s0@:s 16556: 124: 257 
DATA 12171357: 30:56 

DATA 36:18:88: 4: Os Q 

DATA @:s0sQs A: As 755 

DATA #54 4s 28: 10: 105 ZA 
DATA 40:16 

DATA 1516 :REM checksum 


REM 99 SPRITE 5 98 

DATA @:s0:0: A: As A 

DATA Q:s0:128:1278:564: 64 
DATA 0s0:s0:0s 0: 0 

DATA @,@:0: A: 0: 0 

DATA @AsA: Os: As As Q 

DATA @sQ 

DATA 384 :REM checksum 


REM 9) BERGEN dà 

DATA 0:59:40: 0: 88: 50 
DATA 168505195545: 270: 5 
DATA 255:59:2:s59 


REM dd WOORDEN BESTAND @9 
DATA tuirmsbaamsraass Pim 
DATA klaassmiePsPpeerskril 
DATA maarnskaasstaassdaas 
DATA klaassbaansraamsbaas 
DATA <STOP> 
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4.6 Rijmwoorden 


Met dit programma worden rijmwoorden geoefend. Op het beeldscherm ver- 
schijnt een rijtje van drie woorden. Twee woorden uit het rijtje rijmen. Het der- 
de woord rijmt niet! 

Het is de bedoeling dat u aangeeft welke van de drie woorden niet in het rijtje 
thuishoort. De woorden zijn genummerd 1, 2 of 3. Door het nummer vóór het 
woord in te toetsen, kunt u aangeven welk woord niet in het rijtje thuishoort. 

De afbeelding toont de schermopbouw. Door als antwoord niet 1, 2 of 3 in te 
voeren maar nul, of op functietoets F1 te drukken, stopt het programma en laat 
het de eindscore zien. De werking van het programma komt overeen met wat in 
de inleiding van dit boek reeds is verteld over de algemene structuur van de 
programma’s. Verder vindt u in dit programma weer de bekende variabele T2 
die de maximale bedenktijd aangeeft. De variabele GD vindt u eveneens om 
het geluid mee in of uit te schakelen. 


In de Opgavemodule worden twee indices getrokken voor het selecteren van 
twee paar rijmwoorden. Dit zijn de variabelen X en Y. Het rijmwoordenpaar dat 
wordt aangewezen door index Y, zijn de rijmwoorden die bij elkaar horen. In- 
dex X wijst naar het rijmwoordenpaar waarvan één woord wordt gekozen. Dit 
is dus het woord dat niet in het rijtje thuishoort. De keuze wordt bepaald door 
de variabele Z. De variabele kan twee waarden krijgen 1 of 2, daarmee wordt óf 
het eerste óf het tweede rijmwoord gekozen. Als de woordlengten gelijk aan 
elkaar zijn, wordt voor alle zekerheid nog gecontroleerd of het paar goede rijm- 
woorden en het foutieve rijmwoord echt niet met elkaar rijmen. Deze controle 
vindt achteraan in de module ‘Opgave’ plaats. Zijn de laatste twee of de laatste 
drie letters aan elkaar gelijk dan worden er nieuwe woorden getrokken. 
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Een voorbeeld kan het voorgaande verduidelijken. Stel dat het rijmwoorden- 
paar BOOM, ZOOM wordt getrokken en het rijmwoordenpaar LOOM, ROOM. 
Uit het laatste rijmwoordenpaar wordt het woord getrokken dat niet in het rijtje 
thuishoort. Stel dat dit bijvoorbeeld ROOM is. Het rijtje zal dan worden BOOM, 
ZOOM, ROOM. Op de vraag ‘Welk woord rijmt niet’ kan dan geen antwoord 
worden gegeven. De geschetste situatie wordt in het programma ondervan- 
gen. In de module ‘Opgave’ wordt namelijk gecontroleerd of de laatste twee of 
drie letters niet toevallig hetzelfde zijn. 

Helemaal ‘foolproof’ is deze methode niet. Er wordt uitsluitend gekeken naar 
de karakters en niet naar de uitspraak. Woorden als DOOD en BOOT worden als 
niet rijmend beschouwd door het programma. Het zou een leuke uitbreiding 
op het programma zijn als ook deze woorden konden worden gedetecteerd. 
Het spreekt voor zich dat de interne datafile nog flink moet worden vergroot. U 
moet er wel op letten dat u de regel met DATA <STOP> niet vergeet als afslui- 
ting van de interne datafile. Vergeet u deze regel dan kan de module ‘Interne 
datafile lezen’ het einde van het bestand niet detecteren. 


Programma 

10 REM #xx RIJMWOORDEN #4 / 228 
24 KEY OFF / 47E 
34 CLEAR 5000 / 586 
44 DIM A$(50s 2) s C$( 4) / 914 
SB COLOR 49919 / 689 
60 SCREEN 3 / 55 
70 OPEN "GRP:" FOR OUTPUT AS #1 / 1695 
88 GOTO 1990 / 624 
0 : / 148 
140 REM #xr INITIALISEREN #x+# / dS 
118 COLOR 1515515 / 334 
120 SCREEN 22 £ GLS / bei ZA 
130 DEFUSRI=&H41 :REM scherm disable 7 ga8 
148 DEFUSRZ=&H44 :REM schrm enable 7 le 
15@Q DEFUSR3=&HIB REM rezet Geluid / 34 
160 DEFUSR4A=&HIS56:EREM reset kevbrd / F6 
170 DEF FNA(A) = INTARND(I)%A+1) / 1670 
180 A = RND(-TIME) / 963 
190 GD = 1 :REM 1 = Geluid aan / 439 
208 T=0 8 G= 08 P= gg / 878 
218 F$="A123"+CHRSE(13)+CHRSE (B) / 1561 
220 KEY1s "7" +CHRSE(1S) / 1158 
238 G1i% = "V15LIS1IMSSABE" / 1400 
z40 GEE = "V15L4S1 1MPBOZEOZBAG" / 1755 
Z5A GOSUB 320 :REM #*x INT BESTAND N 783 
268 GOSUB 400 :REM #*** SPRITES / 792 
270 Te = 5 REM hbedenktiid / 518 
288 TIME = @ / 62 
298 RETURN / 778 
300 : 4 358 
318 REM ###INTERNE DATAFILE LEZEN#% 7, 5Q4 
370 RESTORE 2330 : NA = 50 / 1451 


330 
344 
350 
360 
370 
380 
390 
400 
418 
470 
432 
448 
450 
460 
470 
480 
490 
50 
510 
520 
530 
544 
550 
560 
570 
580 
590 
&AD 
61 
620 
34 
640 
654 
+60 
678 
680 
690 
740 
710 
720 
730 
740 
758 
68 
770 
780 
790 
800 
810 
820 
83 
840 
858 
364 
8708 
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FOR I = 1 TO 50 
READ A&(Is1)sAS(Is 7) 
IF A$(Is1) <> "<STOP>" THEN 370 


NA = I-1 : I= 50 

NEXT 1 

RETURN 

REM #ex SPRITES INLEZEN #« 


RESTORE 2124 

READ SP ‘REM aant sprites 
FOR J = 1 TO SP 

SD$ = "" £ SC = 0 

FOR Tm 4 TO 42 

READ SD : SC = SC + SD 

SD$ = SD% + CHRE(GD) 


NEXT 1 
READ SD REM checksum 
IF SC = SD THEN 550 


SCREEN @ £ COLOR 155444 
PRINT "Data van sprite" sJ5 
PRINT "zin foutief." 


STOP 

SPRITES(J) = SD$ 

NEXT J 

RETURN 

REM zxr 48 POSITIES PRINTEN sx 


L = LEN(M$) 

FOR K = 1 TÔ L 

NS=MIDS$ (M$s Ks 1) 8 MIeE(Kel)%6t+M 
PRESET AMLsN) £ PRINT #1sN$ 
NEXT K 

RETURN 


REM #&x OPENING xx 

DUMMY = USR1 (0) 

PRESET (28:50) 

PRINT #14" Rim " 

PRESET (28: 130) 

PRINT #1s "waarden" 

DUMMY = USRZ(A) 

FOR 1 = 1 TO 2040 : NEXT 1 
RETURN 


REM Hex KOP HH 


CLS 

M$ = "RR Riimwuarden #4 

M = 65 : N= @ £ GOSUBR 400 
M$=" Aantal aPGaven lis 


M = 23 8 N= 12 £ GOSUR 604 
M$=" Aantal Gaede antwaarden & 
N = Z@ : GOSUR 440 

RETURN 


REM #*x SCHERM OPBOUWEN we 


Ne Be Oe Ver Ne Mie WM A ME Vn Wie Wi Ns KS Ne Dis cg Mie Va Bn Mrs nis. Nas Vu, Wi no ee Kal Vs mz a er rt ME a SE REE VE VEEG BENE WE 


880 
890 
908 
9,10 
A) 
930 
9408 
950 
940 
970 
930 
990 


1000 
1810 


LINE(194s 127) (240: 28): 15: BF 
PRESET(186:12) £ PRINT #1+T 
PRESET (186: 20) : PRINT #1:G 
M$="Welk waard rijmt niet 2" 
M = 23 £ N= 37 £ GOSUR 6AA 
FOR I= 1 TO 3 
PRESET (55: 36+1%&8) 
COLOR 4 : PRINT #19 1 
M$=CH(I) : M=75 8 N=36+tI#G 
GOSUR 600 REM Hex PRINT 
NEXT 1 
COLOR 1 8 DUMMY = USRZ(O) 
RETURN 


1020 REM #x# INVOER #ax 


1830 5% 
1840 M$ 


Ee HER WN EL ME SL 
"Wat iz Je antwaard ? * 


1858 M = 23 & N= 77 t GOSUR 640 


1468 M$ = "1s Z af Zen Sstarp = B>" 


1470 N = 82 £ GOSUR 400 

1888 T5 = T2*58 + TIME 

1898 DUMMY = USR4(A) 

A00 Le Lt 1 

1118 5% = 5% + T$ 

1123 LINE(175s80) -(264:88); 15: BF 


1130 


M$ = 5$ : M = 180 : N= 80 


1148 GOSUR 640 


1150 


T$=INKEY$ 


1168 IF T5-TIME < @ THEN 1300 


1170 
1188 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1790 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1394 
1400 
1412 
1420 


IF T$ = "" THEN 1150 
IF T$="7" THEN T$="Q" 
V = INSTR(F$;T&) 

IF V = @ THEN 1150 

IF V <> 6 THEN 125@ 
IP LS A TREN ALEU 


L=L -2Z 8 S$ = LEFT$S(S$sL+1) 
Ts = 28 

IF V = 5 THEN T$ = "" 

IF V = 5 AND L = Q THEN 1120 
IF V <> 5 AND L = 1 THEN 1150 
IF V <> 5 ORL = @ THEN 1108 
IF S% = "4" THEN 1380 
Ts=Tett Ve) 

A = VAL(S$) 

IF A$ <> C$(A) THEN 1350 
G=G +1: Vve=i 

DUMMY = USR3(A) 


ON V + 1 GOSUR 141A » 1500 
REM %# WACHTLUS «+» 


FOR I = 1 TO (2-V)#750 : NEXT I 


RETURN 


REM xx FOUT war 
PUT SPRITE 15 (170540) s 4: 7 
M$ = A$ + * rijmt niet !!!" 


EW ME NE PE VE WEN SE UE MENE WIE IEEE ME VINE WEE WE NINE WE MEE MG U MANE MG GG Mi Nie Mis Nese Por Mer ns Ds Pi Mita 


2312 
247 
Z4A3 
3283 
ZA49 
1552 
1957 
2441 
2411 
1544 
1372 
2346 
1480 
1868 
1294 
1874 
3118 
z183 
z829 
1925 
19A1 
1978 
1425 
TALZ 
2542 
2473 
1674 
1751 
„395 
ZA44 
2235 
2488 
z040 
2118 
2046 
2523 
1489 
2145 
„498 
23573 
2527 
2236 
1874 
1863 
2459 
1675 
2509 
2137 
2857 
18460 
1448 
1676 
z79A 
„ES 
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1430 
1440 
1450 
1460 
1470 
1480 
1490 
1544 
1510 
1528 
1538 
1540 
1550 
1560 
157Q 
1580 
1590 
1604 
1618 
1620 
1630 
1640 
16508 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
17530 
1740 
1750 
1760 
1770 
1780 
1790 
1830 
1810 
1820 
1838 
1840 
1850 
1860 
1370 
1880 
1894 
1984 
1910 
1924 
1934 
1940 
1950 
1960 
1970 
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M = 23 : N= 109 : GOSUR 600 
LINE(8@, 130) -(158, 175): 3, BF 
PRESET (95: 152) 

PRINT #1s">Faut<" 

IF GD = 1 THEN PLAY G2$ 
RETURN 


REM #xx GOED Ker 

PUT SPRITE 1:(178:40)» 10,1 
LINE(80s 138) -(158,175): 9: BF 
PRESET (95 150) 

PRINT #1," >Goed<" 

IF GD = 1 THEN PLAY G1% 
RETURN 


REM «xx OPGAVE Hex 

LINE (@s42) (7605 200) s 15: BF 
PUT SPRITE 15 (17040) s Qs 1 

X = FNA(NA) & Y = FNA(NA) 

IF X=P OR X=Y THEN 1590 

Z = FNA(2) 

A$ = A$(YsZ) : REM antwaard 
C$(1)=ZAE(Xs 1) 8 C$(Z)ZAS(X 0 2) 
C$(I)=ZAE £ L = LEN(AS) 

IF L <> LEN(C$(1)) THEN 1740 


K=3 £ IF L<=3 THEN K=Z 
AAS = _RIGHT$S(A%,K) 
BB$ = RIGHTS(C$(1)sK) 


IF AAS = BB$ THEN 1590 
REM #* DOOR ELKAAR ## 
P= X 

FOR Le 1 TO 5 

X = FNA(3) £ Y = FNA(3) 
SWAP C$&(X)sCH(Y) 

NEXT 1 

RETURN 


REM #*x RESULTAAT xx 

R= @ 

GOSUB 7808 :REM «xx KOP 
PRESET(186s 12) 5 PRINT #1sT 
M$=" Aantal Goede antwaarden :* 
N = ZA £ GOSUR 400 
PRESET(1864 20) : PRINT #1+:G 

IF RZ1 OR TZ1 THEN 1890 

R = INT(G#100/T + .5) 
M$="Perrcentade Oned gn 
N = 28 £ GOSUR 6AA 
PRESET(186: 28) : PRINT #1«R 
DUMMY = USR2() 

M$ = "" : PRESET (23: 180) 

PRINT #1s"Druk een taets in" 
ME=ZINKEY$ : IF M$="" THEN 1950 
RETURN 


NEGEN NE IN MEET MIE ENEN NEI NEE NEEN NEMEN MET NEE Ni IEP MEENEEM VE MIE MENE Ni MIST NE NEE EE ie B NE TENEN SEE Ei PG WET NEE 


ze 
28/3 
2307 
2589 
2632 
196 
1548 
1774 
2924 
2959 
2387 
2638 
2711 
204 
1628 
1854 
Z955 
2975 
za41 

z9A1 
2125 
2207 
34 
2657 
3055 
2805 
z634 
Z7ea 
2758 
2986 
1959 
2368 
2797 
2664 
2167 
2260 
1848 
2076 
Zaat 

2363 
3347 
Ahh 
2679 
336.35 
371 

2670 
3947 
2737 
347 
2806 
ZA7G 
411 

E47 
244 
28 


1930 
1990 
2200 
2010 
2020 
2039 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
21108 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
22400 
z210 
2220 
2230 
ZE4A 
2250 
2260 
2270 
2280 
2298 
2304 
z310 
2520 
2330 
2340 
2350 
25460 
257 
2380 
Z59A 
2400 
2410 


REM « 
GOSURB 
GOSUB 


“ew STUURMODULE Herr 
6BA EREM «xx OPENING 
119 :REM xxx INIT 


GOSUR 788 :REM xx KOP 


GOSUB 
GOSUP. 
GOSUR 
IF S% 
GOSUB 
CLOSE 
END 


REM 999 INTERNE DATAFILE 90 
Ds REM aantal sprites 


DATA 


REM & 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


REM @ 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


REM à 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


1598 :REM «xk OPGAVE 
888 :REM ##* SCHERM 
1430 :REM #xx INVOER 
<> "Z" THEN 2020 
1810 :REM ##** RESULT 
#1 


à SPRITE 1 9 
3,15,31451s 1150 255 
2552551592317 40s 177 
63s31s15s 3e 192 240 

Z48s A44 206: 25517555 255 
24e 23e 31e 25425 240 
240: 197 

5429 REM checksum 


® SPRITE 2 OA 

Je 13e 31sbAs115e 255 
2550755248 231s 23e 127 
bs 31s154 34 1974 240 

248: 25E 706, 755 2553 255 
31s231r251e 2540 2520 248 
z40s 197 

5535 REM checksum 


@ INTERN BESTAND @8 
raassdaas 

kaasssmas 

keessmees 

zoute kaud 

aks sak 

baas zaam 
klavershaver 

beests leest 

<STOPEs £STOP> 


ME Ne Mi Wir B Fr Mr A A as Vr rt Ni Ml Mr Mi: Me Vo Mir Bie Ns Ve Wir Aes Sins B Wis Wii Min irt Mi Ot Wis) Wirt Wir TOE 


2256 
23532 
2530 
2555 
2611 
2574 
2620 
3049 
2646 
2528 
2295 
„148 
2158 
z388 
2452 
2188 
2416 
3314 
3595 
3354 
3610 
3567 
2832 
2702 
2278 
2506 
3AA7 
3677 
345 
3743 
3450 
222 
272 
z368 
2596 
3544 
3562 
3526 
4537 
3361 
3588 
3895 
1798 
3637 
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4.7 Ontleden 


Op het beeldscherm verschijnt een lichtkleurige balk. In deze balk wordt een zin 
geplaatst met een woord of een gedeelte van de zin in contrasterende kleur. 
Tegelijkertijd wordt de vraag gesteld het zinsdeel in contrasterende kleur te 
benoemen. U heeft de keus uit drie antwoorden. Eén van de antwoorden is 
juist. Het is de bedoeling dat de gebruiker het juiste nummer opgeeft. Bij het 
invoeren van het juiste antwoord verschijnt een uil op het scherm ten teken dat 
het antwoord goed is. Bij een foutief antwoord verschijnt een groot kruis. In 
beide gevallen, Goed of Fout, wordt het goede antwoord in een donkere kleur 
weergegeven. 

In de interne datafile zijn een aantal zinnen opgeslagen. Elke DATA-regel be- 
staat uit één zin. Het eerste getal na het DATA-statement geeft aan uit hoeveel 
delen de zin bestaat. Er wordt bewust gesproken over delen en niet over woor- 
den, omdat bij ontleden vaak meerdere woorden betrokken zijn. Bestaat een 
deel van een zin uit meerdere woorden dan moet dit gedeelte ingesloten zijn 
tussen aanhalingstekens staan. Het laatste karakter uit een zinsdeel is altijd een 
getal tussen één en zes. De betekenis van de getallen is als volgt: 

= onderwerp 

= gezegde 

= meewerkend voorwerp 

lijdend voorwerp 

= bijwoordelijke bepaling 

= bijvoeglijke bepaling 


ns wN. 
| 


Hieronder volgt een eenvoudig voorbeeld van een zin die u kunt toevoegen. 
“Jan eet zijn brood." 


JAN is onderwerp EET is het gezegde en ZIJN BROOD is lijdend voorwerp. De 
zin bestaat in totaal uit drie delen. Volgens bovenstaande codering heeft het 
onderwerp de codering 1, het gezegde de codering 2 en het lijdend voorwerp 
de codering 4. De DATA-regel van de zin ‘Jan eet zijn brood!’ ziet er dan als volgt 
uit: 


regelnr. DATA 3, JAN1, EET2, "ZIJN BROOD4" 


In totaal kan het programma dertig zinnen bevatten. U moet er bij uitbreiding 
van de interne datafile op letten dat de laatste dataregel er als volgt uitziet: 
regelnummer DATA 0,<STOP>. 

Wanneer u zinnen toevoegt aan de interne-datafile moet u geen punt aan het 
einde van de zin zetten. Deze punt wordt door het programma zelf aan de zin 
toegevoegd. 

Suggestie: In dit programma ontbreekt het mechanisme bedenktijd. Dit kunt u 
alsnog inbouwen. Er staan voldoende programma’s in dit boek als voorbeeld. 
Indien u de plaatjes voor goed en fout niet mooi vindt kunt u deze sprites vrij 
eenvoudig wijzigen. Hiertoe hoeft u slechts de data voor de sprites te wijzigen. 
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Programma 


18 REM #&k ONTLEDEN #+# 

20 CLEAR 5200 

30 KEY OFF 

40 DIM A$&(30s 10) sBE(L)NsD(I) EZ) 
5@ COLOR 4e ttsi1 

6 SCREEN 3 

78 OPEN "GRP:" FOR OUTPUT AS #1 

80 GOTO 2110 

0 : 

100 REM #tEx INITIALISEREN Kaew 

118 COLOR 155454 5 SCREEN #s2 : CLS 
128 DEF USRI=&H41 REM schrm disable 
138 DEF USRE=EH44 REM achrem enable 
14A DEF USR3I=ZEHPA :REM reset Geluid 
150 DEF USR4=&HISGEREM rezet kerbrd 
160 DEF FNA(A) = INTARND(ID A41) 
178 KEY 14"7" 

188 A = RND(-T IME) 

198 GD = 1 £ REM 1 = GELUID AAN 

EAA T=A : Ged :REM apdaven / Gued 
z18 P = Q : NA = @ 

Z20 TIME = @ 

230 BEC e=" anderwerr" 

Z40 BS(H)=e"Ggezedde" 

Z50 BE(H) e=" meewerkend vaarwerr” 

ze BE(4)="liidernd vaarwerr” 

70 RES)" hiiweeardeliike keraling" 
ZRD BE(O)="hHiivaedlijke keraling” 
298 Fs = "123" 

300 GOSUR 570 :REM zxr INT BESTAND 
318 GOSUVE 380 REM Hex APRITES 


WEEREENS tee So We Mn ARE Dn Des Mn Ne Me. Ven Norte Me We AR 


370 Als = "VISLOS11IMSSABE" 

330 AZB = "VISLA4S1 1MPAOZEOZRBAG" 

344 GD = Ì REM geluid = aar 

358 RETURN / 
364 : / 
378 REM #x*% SPRITES INLEZEN #x% / 
380 RESTORE 77404 / 
398 READ SP REM aant zpriter / 
488 FOR J = 1 TO SP / 
418 SDE = "" : 5C = 4 % 
420 FOR I = 1 TO 37 / 
430 READ SD t 5C = 5C + SD / 
440 SDE = GDB + CHRÉLSD) / 
450 NEXT 1 / 
46A READ SD REM checksum Pi 
470 IF SC = SD THEN 520 / 
4834 SCREEN 8 % COLOR 14e 4 / 
490 PRINT "Data van zPrite" sd / 
500 PRINT "zijn Foutief." / 
518 STOP / 
520 SPRITES(J) = SD 
538 NEXT J / 


540 
550 
560 
570 
560 
590 
600 
610 
620 
630 
640 
650 
460 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
81a 
820 
8630 
840 
esa 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1930 
1040 
1059 
1060 
1070 
10890 
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RETURN 

REM #&x* INTERN BESTAND #%* 
RESTORE 2540 

FOR 1 = 1 TO 3Q 

READ E(I) : H = B £ NA = 1 
IF E(I) = @ THEN 650 

FOR J = 1 TO ECI) 

READ A&(I:J) 

NEXT J 

He 1 

IF H <à @ THEN 670 

NA = 1 - 1 : I= 30 

NEXT T 

RETURN 


REM #exr TEKSTRIJ #x% 

FOR K = 1 TO LEN(M$) 

N$ = MID$S(MEsKs1) 2 Mi=(K-1)%5+M 
DRAW "BM=M15s=N5" 7 PRINT#1s:N$ 
NEXT K 

RETURN 

REM &&* OPENING #4 

DUMMY = USR1 (OQ) 

PRESET (28:50) 

PRINT #1s "Ort" 

PRESET (28: 130) 

PRINT #1s "leden" 

DUMMY = USRZ(A) 

FOR 1 = 1 TO 2048 : NEXT 1 
RETURN 

REM «xe KOP Hw 

COLOR 154454 £ CLS 

M$ = "RER ONT LEDEN waer” 

M = 53 : N= B z£ GOSUR 710 
M$=" Aantal araavern 

M = 23 £ N= 17 8 GOSUR 710 
Mt=" Aantal Gaede antwoaarden & 
N = #20 : GOSUR 710 

RETURN 


REM «xk SCHERM OPBOUWEN #&# 
COLOR 15 
LINE(194s 12) (26085 ZE) s 44 BF 
PRESET (203: 17) : PRINT #1» T 
PRESET (203: 20) : PRINT #15G 
LINE (Bs 34) -({255s64)s 10: BF 
LINE (Q565)-{255s 190): 4: BF 
PUT SPRITE 15 (40:90): As 1 

PUT SPRITE 25 (40: 104) ; As 7 
BGEPZ £ N=3A 8 COLOR 1 

FOR I = 1 TO E(X) 

IF I <> Y THEN CR=1 ELSE CR=4 


en Vi in Mi ihn ie Vn. ME Men Bi We Ni in En Mn Me ia Me Min Vie ion Bio Ian linn Wils Vin Mine Min Wan Pein Nien Ti Vi Bia B Pae Me hen a in ine in iin. Pi Min. Uien din We 


NN 


2428 
1134 
12730 
eta 
1044 
1645 
1589 
1743 
16546 
1933 
1716 
2061 
15.304 
18 
1146 
1841 
2273 
1981 
2907 
z049 
3574 
1771 
1430 
1012 
15465 
1445 
RAS 
z5(47 
2503 
2345 
2367 
z368 
Z426 
2151 
1885 
2628 


1898 COLOR CR : L=LEN(AS(Xs ID) 1 / 2607 
1100 M$ = LEFT$S(AS(Xs I)sL) 8 M=RBG / 2534 
1118 GOSUR 719 : BG=ERBG+L#G+6 / 2351 
1120 IF BG > 203 THEN BG=23 £ NeN+B 4 2587 
1130 NEXT TI / 1522 
1148 COLOR 1 / 1572 
1158 M$="," £ M=BG-á4 £ GOSUB 710 / 2462 
14650 MS = "Wat is z° 5 COLOR 15 / 2587 
1178 M = 23 : N= 75 £ GOSUBR 710 / 2308 
11808 L = LEN(AS(XsY)) — 1 / 2118 
1190 ME=LEFTS(AB(XsY)sL) z COLOR 1 / 2793 
1200 M = 77 : N= 75 : GOSUR 710 / 2347 
1710 COLOR 15 / 1495 
1228 FOR IT = 1 TO 3 / 1848 
1230 M$ = STRE(I)4" "4+BE(D(ID) / ZAR 
1240 M=71 : N=20+I#10 £ GOSURB 710 / zo3r 
1750 NEXT I / 1647 
1262 DUMMY = USRZ(O) / 2146 
1270 RETURN / 1754 
128A : / 1338 
1290 REM *xx INVOER 4x / 1564 
1300 M$ = "Wat is ie antwaard 2 * / 3374 
1318 M=23 £ N=138 : GOSUR 710 / 2488 
1320 M$ = "15253 af A vaar star * / 3129 
1330 M=23 : N=14A : GOSUB 710 / 2509 
1348 DUMMY = USR4(A) 7 CR=15 / 7598 
1358 IF TIME MOD 18 <> @ THEN 1390 / 2795 
13468 IF CR=15 THEN CR=4 ELSE CR=15 / 2987 
1378 COLOR CR £ DRAW"BM151s140" / 2817 
1380 PRINT #1s"2" / 2036 
13590 AS=INKEYS : IF A$="" THEN 1350 / 2947 
1400 IF A$="2" THEN A$="4" / 2417 
1418 H = INSTR(FSsA$) —1 4 2369 
1420 IF H = =-1 THEN 1350 / Z294 
143A ITF H = A THEN 1530 / 2258 
1440 LINE (151s149)-({168:150)s 4: BF / *9A3 
145A COLOR 1 £ DRAW"RM1515s 140" / 2797 
1464 PRINT #1sA$ / ZAaA 
1470 IF © <> H THEN Z=8 ELSE Z=i / 867 
1488 T= T + 1 :G=G+tZ / 2195 
1498 DUMMY = USR3(A) / 2377 
1508 ON Zet GOSUR 1540: 1640 / 2674 
1510 REM #* WACHTLUS #3 / ZI 
1520 FOR 1 = 1 TO (Z-V)#750 8 NEXT I / ZAA7 
1530 RETURN / 2014 
1540 : à 1598 
1550 REM xx FOUT ze / 1876 
15460 PUT SPRITE 14 (40:90) s 15 3 / 2891 
1570 PRESET(88:188) £ COLOR 1 / 249 
1588 PRINT #1s":> F OUT <<" / 2895 
1598 M$ = STRE(E)4" "++RE(D(G)) / 2810 
160A M=71 : N=80+G#10 : GOSUR 710 / 3000 
1610 IF GD = 1 THEN PLAY AZ$ / 2766 
1628 RETURN / 2100 
16308 : / 1688 
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1640 
1650 
1660 
1678 
1680 
14690 
1708 
1710 
1720 
173 
1740 
1750 
1760 
1770 
1780 
17908 
1800 
1810 
1820 
1830 
1840 
1854 
1860 
1870 
1880 
1890 
1900 
1918 
1920 
1930 
1940 
1954 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
z038 
2040 
z050 
2060 
z47a 
2080 
ZA 
z140 
Z110 
2120 
2130 
2140 
2152 
2160 
2170 
2184 
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REM #** GOED He 

PUT SPRITE 15 (42:90): 14: 1 
PUT SPRITE 25(48:1865):s 14: 2 
PRESET(80: 180) 7: COLOR 15 
PRINT #1,">> GOED <<" 
IF GD = 1 THEN PLAY A1$ 
RETURN 


REM zer OPGAVE zur 
X=FNA(NA) & IF XeP THEN 1774 
Y = FNA(E(X)) 
A = VAL(RIGHTE(AS(Xs Y)s 1) 
REM MULTIPLE. CHOTCE OPBOUWEN 
FOR 1 = i TO 3 
DCI) =FNA(&) 
IF DCI) = A THEN 1780 
IF 1 = 1 THEN 1860 
H = @ 
FOR GW LTE e= 1 
) = 


IF DCI D(J) THEN H = 1 
NEXT J 

IF H = 1 THEN 1780 

NEXT 1 


REM #« GOEDE ANTWOORD #4 
Q = FNA(3) : D(@)=A 8 P=X 
D(GQ) = A 

RETURN 


REM xx RESULTAAT ax 

R= A 

GOSUR 888 : REM #ex KOP 
PRESET (203: 177) : PRINT #1+T 
M$=" Aantal Gaede antwaarden & 
N = ZA : GOSUB 710 
PRESET(203, 20) :£ PRINT #1:G 
R=A : IF T<1 OR GZ1 THEN 2210 
R = INT(G#180/T + .5) 
M$="Perrcentade Jaed ge 
N = 28 : GOSUR 710 
PRESET(2A3: 28) & PRINT H#lsR 
DUMMY = USRZ() 

M$ = "" : PRESET(Z4: 180) 

PRINT #1s"Druk een taets in" 
ME=INKEY$ 5 IF M$="" THEN 2070 
RETURN 


REM seek STUURMODULE see 
GOSUB 780 :REM #3 OPENING 
GOSUB 118 :REM He INIT 
GOSUR 888 :REM #x*# KOP 
GOSUR 1730 :REM ##& OPGAVE 
GOSUB 988 :REM #x SCHERM 
GOSUB 1300 :REM #* INVOER 
IF A$ <> *“@" THEN 2140 
GOSUR 1930 :REM ### RESULT 


Mie Me he Be Ke Mee ie he oe ike in in Me oke ie eN Me Mi hehe en Me ik 


sf NE RE NEL ENE AE NE MLN OE WOE EN TE WN AE 


2190 
2200 
2210 
2520 
2230 
2240 
2250 
2260 
2270 
2280 
z290 
2300 
23510 
2320 
255 
z340 
2354 
2560 
2370 
2380 
2390 
240 
2410 
2470 
2430 
z440 
2450 
Z46 
2470 
2480 
2490 
2500 
25108 
2520 
z550 
2540 
2550 
z560 
2570 
2580 
2590 
2600 
2610 
z620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 


CLOSE #1 


END 


REM 2® INTERNE DATAFILE 9@a 


DATA 


3 REM aant sprites 


REM 22 SPRITE 1 98 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


OsAsAs isis 1 

Os 1s327s15s 31 
67176254 25E 1350 124 
146:1049, 109: 17: 146: 68 
186 71s 31 31 31 3 

Zs4 


1878 :REM checksum 


REM a& SPRITE £ 28 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


252:248s127s 271214 
5:0,0,0:0: A 

Ass 0:08: 48 

224 Bs 3256 RAA 
Bs As As, As A 

as 

1167 :REM checksum 


REM 29 SPRITE 3 2a 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


1971925485 4R1 175 17 
Bs 3e Js 3e 1712 

GES 4E 190 1PE0 Zr 4 
1517148: 482 1974 197 
197,19254854Bs 171 17 
RL gt | 

2040 :REM checksum 


REM 9 INTERN BESTAND @ò 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Js "De Handi"s"Tlaart2" 
Yar straat5” 

4e" Ik1" es" Geef?" ss" jaud” 
'een brief4* 

3s"De Paesli"s"liktz2" 
'zidn vacht4" 

Je "Het" s"redenti” 

“de hele dag5" 


3s"De Hlaemeni"s"liggenz” 


‘ap straat5* 
3e"De daazst"s"staatz2* 
hap de kazt5" 


As" Ikt"s "geef d"s"de hond3" 


teen kluif4” 

Ss" Jel" s"hekti" 

veen Jeuke durk4" 

3s"De tas1"s"staat2” 
"ap tafel5" 

3s"Die tafeli"s"staatz” 
Pap zaulder5" 

Bs <STOP- 


NE MENEN NG PGS NN Ns WAGENS NG NINE MG Mi Win Wi dis. B B De Be er Se Aur a A Sr Mer Benin ns Es inn akan Dis Un Kn Bi en Me en VE NE 


z648 
Z415 
z268 
2496 
2288 
2573 
2323 
2536 
3443 
3187 
3456 
3634 
3279 
2748 
28:73 
2398 
2626 
JARI 

3165 
3238 
35A9 
4190 
2842 
zAn4 

248A 
27/16 
SAR 
Aib4 

JAA 
3748 
1718 
2978 
2990 
2578 
z806 
4380 
3863 
4301 

3836 
43E 
4041 

4190 
3E 
4845 

3943 
4475 

3976 
4725 

3955 

3934 
G4A& 
4425 
za 
4747 
4044 
3562 
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Voorbeeld 


KKK ON TLE DEIN EER 


aantal opgaven : 
0 de antwoorden 


poes 
voorwerp 
bijwoordelijke bepali ms 


antwoord 


voor stop 


4.8 Benoemen 


Behalve redekundig ontleden wordt op school ook aan benoemen (taalkundig 
ontleden) gedaan. Hierbij is het de bedoeling werkwoorden, voorzetsels, bezit- 
telijke voornaamwoorden enz. te herkennen. Dit programma is op dezelfde 
manier opgebouwd als het programma ‘Ontleden’. Er verschijnt een zin in de 
lichtkleurige balk op het beeldscherm, waarbij een woord in een andere kleur 
oplicht. Aan de hand van een multiple choice wordt er gevraagd het oplichten- 
de woord te benoemen. 

Na invoer van het antwoord verschijnt de uil ten teken van een goed antwoord 
of een kruis ten teken van een foutief antwoord. Bij een foutief antwoord wordt 
aangegeven wat het antwoord had moeten zijn. 

In de interne datafile zijn slechts een beperkt aantal zinnen opgenomen. Het 
aantal zinnen moet u zeker uitbreiden, anders wordt het voor de gebruiker 
meer een geheugentraining! 

De opbouw van de dataregel is als volgt: 

Na het DATA-statement wordt door middel van een getal aangegeven uit hoe- 
veel woorden de zin bestaat. Daarna wordt de zin ingevoerd, waarbij de woor- 
den van elkaar worden gescheiden door komma's. Na het laatste woord mag u 
geen punt zetten, deze wordt door het programma zelf aan de zin toegevoegd. 


Achter elk woord staat een cijfer dat aangeeft wat voor soort woord het is. De 
codes vindt u in de volgende tabel. 
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= werkwoord 

= zelfstandig naamwoord 

bijvoeglijk naamwoord 

= persoonlijk voornaamwoord 

lidwoord 

= bijwoord 

= aanwijzend voornaamwoord 

= bezittelijk voornaamwoord 

= voorzetsel 

Hieronder volgt een voorbeeld van een zin die wordt verwerkt tot een DATA- 
regel. 

‘Piet heeft een vlek naast zijn bord.” 

De zin bestaat uit zeven woorden. Piet is een zelfstandig naamwoord, code 2. 
Heeft is een werkwoord, code 1. Een is een lidwoord, code 5. Op deze manier 
wordt de hele zin benoemd. De DATA-regel ziet er dan als volgt uit: 


Oo RWN == 
ij 


regelnr. DATA 7, Piet2, heeftl, een5, vlek2, naast9, zijn8, 
bord2 


U kunt maximaal dertig zinnen in de interne datafile plaatsen met maximaal 
vijftien woorden per zin. De laatste DATA-regel moet eruit zien als de laatste 
DATA-regel in de listing: regelnr. DATA 0,<STOP>. Deze regel mag niet wor- 
den gemist, anders loopt het programma vast. 


Programma 

18 REM xxx BENOEMEN # / 228 
2 KEY OFF / 47E 
38 CLEAR 5Q00 / 504 
44 DIM A$( 30:10) sPE(9)sD(I)sEL3A) / 15A1 
5 COLOR 41 11s11 / 749 
6D SCREEN 3 / 559 
7Q OPEN "GRP:" FOR OUTPUT AS #1 / 1695 
84 GOTO 2140 / 597 
MA : £ 148 
100 REM «xx INITIALISGEREN ### / 376 
118 COLOR 155414 8 SCREEN Ze2 8 CLS / 1721 
120 DEF USRI=&H41 REM schrm disable / 898 
134 DEF USRE=&H44 REM echrm enable / ht 4 
140 DEF USR3=&H9D :REM reset Geluid / 4 
158 DEF USR4=&HI1S5GEREM reset kevrbrd / GRA 
160 DEF FNA(A) = INT(RND(I1I)#A+#1) / 1660 
170 KEY 47e / 627 
18@ A = RND(-TIME) / 963 
19Q GD = 1 £ REM 1 = GELUID AAN / 439 
209 T=A : GEA REM ardaven / Gaed / 631 
218 P = @ £ NA = 3 / 709 
250 TIME = @ / 63 
230 BE(1)="werkwaard" / 15837 
240 B$(H)="zelfstandig naamwaard" / z781 
z5Q BE(A)="hiivaealiik naamwaard" / 2781 
264 BE(4)="perzsaanlijk vaarnaamwaard" / 3278 
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270 
280 
290 
300 
310 
320 
330 
240 
350 
360 
370 
380 
390 
„A0 
410 
420 
430 
NN) 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
540 
570 
580 
594 
600 
618 
620 
430 
64 a 
650 
668 
670 
680 
698 
700 
710 
724 
730 
740 
750 
760 
770 
788 
790 
800 
810 
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BE(S)="lidwaard" 
B$(A)="hiiweard" 
BE(7)="aanwiizend vaarnaamwaard" 
B$(B)="hezittelidk voarnaamwoaard" 
B&(O)="vaarzetzel" 

F$ = "123" 

GOSUR 600 :REM #x*x INT BESTAND 
GOSUR 418 :REM #*x* SPRITES 

Al$ = "VISLOSS11M55ARBE" 

AZ$ = "V15L4S11M9BO3EOZBAG" 

GD = 1 REM geluid = aan 
RETURN 

: 


REM x*«#* SPRITES INLEZEN kx 
RESTORE 2280 

READ SP REM aant sprites 
FOR J = Ì TO SP 

SD$ = "*" £ SC = DQ 

FOR IT = 1 TO 32 

READ SD: : SC = SC + SD 

SD$ = SD% + CHRELSD) 


NEXT I 
READ SD REM checkztm 
IF SC = SD THEN 55@Q 


SCREEN @ £ COLOR 155454 
PRINT "Data van zsPrite"5J53 
PRINT "ziin fautief." 

STOP 

SPRITES(J) = SD$ 

NEXT J 

RETURN 


REM ##* INTERN BESTAND #*% 
RESTORE 2580 

FOR I = 1 TO 30 

READ E{I) & H = @ : NA = 1 
IF E{I) = @ THEN 4808 

FOR J = Î TO ELI) 

READ A$(IsJ) 

NEXT J 

H= 1 

IF H <> @ THEN 709 

NA = 1-1: 1I= 30 

NEXT 1 

RETURN 


REM xxx TEKSTRIJ xx 

FOR K = 1 TO LEN(M$) 

N$ = MID$(M$;Ks 1) 7 Mi=(k-l)&6+M 
DRAW "BM=M15s=N:" 5 PRINT#Js;N$ 
NEXT K 

RETURN 


REM zak OPENING #*x 
DUMMY = USR1 (@) 


NE WEE WE Si Wi WV it Ns WN Ur Ni MOE NE MET Mi MT AGT NG WENEN ANGEL, GE DE NEEN AGT MNN Ni EAN ENE WOP NEN A 


15E 
14:57 
7 
223 
1467 
1741 
z4A7 
2270 
064 
14450 
953 
1050 
638 
246 
5 B oo Je 
1286 
1781 
1564 
1441 
1387 
1053 
852 
15419 
1352 
1497 
1124 
778 
1006 
1736 
2296 
24548 
1144 
1764 
A48 
1076 
1695 


820 
8330 
840 
350 
860 
870 
8380 
898 
900 
910 
20 
3 
940 
950 
60 
974 
80 
9 
1424 
1810 
1020 
10:50 
1040 
1950 
1060 
1970 
1080 
1090 
1100 
1112 
1120 
1130 
1140 
1150 
11460 
1170 
1184 
1190 
1200 
1x10 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1340 
1318 
1320 
1330 
134 
1352 
1360 


PRESET (50:50) 
PRINT #1s "Be" 
PRESET (50:94) 
PRINT #1s "naemen" 
DUMMY = USR (A) 
FOR J = 1 TO Z02A : NEXT I 
RETURN 
REM sar KOP Her 
COLOR 155454 7: CLS 
M$ = "4e BENOEMEN wer” 
M= 53 : N= A 5 GOSUR 740 
M$=" Aantal aPJaver 2 
M= 23 : M= 17 # GOSUR 740 
M$=" Aantal Gaede antwaarden & 
N = ZA : GOSUR 740 
RETURN 
REM ax SCHERM OPBOUWEN sam 
COLOR 15 
LINE(194s 17) (4D: 28) 4 BF 
PRESET (ZA: 127) : PRINT #1+T 
PRESET (283: 20) : PRINT #1+G 
LINE (@s 34) (255454) s 10: BF 
LINE (@s65) (2555190) 41 BF 
PUT SPRITE 1s{40:9A): Bs 1 
PUT SPRITE Zs (401 106) s Qs 7 
RG=23 £ N=36 £ COLOR 1 
FOR I = 1 TO E(X) 
IF I <> Y THEN CR=1 ELSE CR=4 
COLOR CR £ L=LEN(AS(Xs I))-1 
M$ = LEFT$S(AS(XsI)sL) £ M=BG 
GOSUR 740 : BG=RG+L*6+6 
IF BG > 203 THEN BG=23 £ N=N+0 
NEXT 1 
COLOR 1 
M$="," 8 M=RAG-4 GOSUR 744 
M$ = "Wat iz £" COLOR 15 
23 8 N= 75 £ GOSUR 740 
LEN(ASB(Xs Y)) — 
LEFTE(AB(Xs Y)sl) z COLOR 1 
M = 77 8 N= 74 & GOSUB 740 
COLOR 15 
FOR 1 = 1 TO 3 
M$ = STRE(I)+4" "+RE(D(I)) 
M=71 : N=8A+I#10 : GOSUR 740 
NEXT I 
DUMMY = USR2(A) 
RETURN 


M = 
L= 
M$=: 


REM za INVOER xx 

M$ = "Wat is ie antwaard 2? * 
M=23 £ N=13A : GOSUB 748 
M$ = "15253 af B vaar stop " 
M=23 £ N=148 £ GOSUB 740 


Ne ee en Me Ee en Ae en nT he ee Ven Mn he he Me en Me Wiee Hi an Vn Men me Bie En Mi Me in Mier Miis Wie “inn li io Mee Mic Uhn ie Min Me U ie Ve ie 


1614 
1635 
1438 
2085 
1746 
za91 
1360 
948 
1176 
1871 
7044 
„A4 
2937 
z487 
3554 
1804 
14504 
1448 
177% 
1495 
2407 
2537 
25433 
2375 
2392 
„398 
2456 
2181 
1915 
2658 
2632 
256 
2384 
2617 
jr 4 
1607 
Z495 
z617 
2341 
z148 
2823 
z380 
1725 
1878 
ZaA4 
7665 
145727 
2176 
1784 
1346R 
1596 
34 A0 
2521 
3159 
Z5AE 
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137A DUMMY = USR4(@) : CR=15 

1388 IF TIME MOD 18 £: @ THEN 1420 
1394 IF CR=15 THEN CR=4 ELSE CR=15 
1400 COLOR CR 7 DRAW"EBMIS1s 140" 
1410 PRINT #is" 2" 

1470 AG=INKEYE : IF Ade" " THEN 1.380 
14530 IF A$="7" THEN Af="(" 

1440 H = INSTR(ESs AB) —1 

1454 IF H e= —-1 THEN 1380 

1440 IF H =:@ THEN 1562 

1478 LINE (151s140)--(160: 150) + 41 RF 
14830 COLOR 1 £ DRAW"RM151s 140" 
1490 PRINT H#1sA% 

15A0 TFE 0 £4 H THEN Z=@A ELSE Zei 
Ft de Tk Kk Om En WZ 

1520 DUMMY = USR3(O) 

1530 ON Zet GOSUR 1590:1670 

1540 REM ## WACHTLUS ##* 

1558 FOR I = 1 TO (2-V)#75A 8 NEXT 1 
1560 RETURN 

1574 : 

158A REM Haer FOUT Hex 

1590 PUT SPRITE 15 (40:90) 111 3 

1600 PRESET(80: 184) : COLOR j 

1618 PRINT #1s" 2: FOUT 4" 

1628 M$ = STRE(G) A" VREDE) ) 
1630 M=71 : N=804+0#10 £ GOSUR 744 
1644 IF GD = 1 THEN PLAY AZ%$ 

1654 RETURN 

166A : 

1674 REM Xe GOED Ht 

14834 PUT SPRITE 15(4359@)s 1411 
1694 PUT SPRITE 2: (42: 144) s 141 7 
1700 PRESET(BA:180) 1 COLOR 15 
1718 PRINT #1s" 2e GOED <5" 

1724 IF GD = 1 THEN PLAY A1$ 

1734 RETURN 

1740 : 

175A REM ##% OPGAVE Hit 

1760 Xz=FNA(NA) z IF X=eP THEN 1750 
1770 Y = FNACE(X)) 

1780 A = VAL (RIGHTS(AB(Xs Y)s 1) 
179A REM #MULTIPLE CHOICE OPBOUWEN% 
1820 FOR I = 1 TO 3 

1810 DIJ=FNA(G) 

1824 IF DAI) = A THEN 1810 

1830 IF I = 1 THEN 1890 

1844 H = A 

1858 FOR J = 1 TO I= 1 

186A IF DAI) = D(J) THEN H = 1 
1870 NEXT J 

1888 IF H = 1 THEN 18104 

1890 NEXT 1 

198A REM && GOEDE ANTWOORD #4 

1910 à = FNA(3) t D(G)=A ft PeX 


SEE MEE NE Nie BT B ME KETENEN ME NUE EEEN STENEN RE Wa Mare. Ne SE Ven ee Ag Ken ren eg Nn ENG 
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1920 
1934 
194 
1950 
1960 
1974 
198A 
1990 
2400 
2014 
2420 
2030 
2040 
2050 
2060 
2470 
2080 
2090 
2120 
2118 
2120 
2132 
2140 
215A 
2160 
2178 
21840 
2198 
2200 
2210 
2220 
2230 
2240 
2254 
2248 
2274 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
ZAz0 
ZA 
24400 
2450 
2460 


DQ) = A 

RETURN 

8 

REM #%** RESULTAAT #a 

R= @Q 

GOSUR 910 : REM KOP 
PRESET(203: 12) £ PRINT #1+T 
M$=" Aantal Gaede antwoorden & 
N = 20 : GOSUR 740 
PRESET(203: 20) £ PRINT #15G 
R=A : IF T<1 OR G41 THEN 7040 
R = INT(G#100/T + .5) 
M$="Percentade Goed : 
N = 28 £ GOSUB 7404 
PRESET(203:, 28) : PRINT #1sR 
DUMMY = USR2(O) 

M$ = "* 2 PRESET(23: 1830) 
PRINT #1s"Druk een taets in" 


M$=INKEY$ £ IF M$="" THEN 2100 


RETURN 


REM #xxx STUURMODULE ww 
GOSUR 818 :REM ##x OPENING 
GOSUB 110 :REM xxx INIT 
GOSUR SIA REM #x# KOP 
GOSUR 1742 :REM xx OPGAVE 
GOSUR 1018 :REM ###* SCHERM 
GOSUR 1330 :REM xxx INVOER 
IF A$ <> "Z" THEN 2170 
GOSUB 1960 :REM #** RESULT 
CLOSE #1 

END 


REM 959 INTERNE DATAFILE @®aa 
DATA 3 ‘REM aant sprites 


REM 99 SPRITE 1 &à 

DATA Ass: 1s1s1 

DATA @s 153, 7:155s 31 

DATA 62512652545 252130: 1274 
DATA 146:109:109; 17: 144: 68 
DATA 186: 71s Js 3s 3e 3 

DATA 2:4 

DATA 1878 :RFM checksum 
REM 9® SPRITE Z 99 

DATA 2575248112752: 256 
DATA 5sAs@A:0: 0: A 

DATA 0s0:8:0,8: 48 

DATA #24 37s 324961 80: 0 
DATA @sA: A: A: DO: A 

DATA Qs 

DATA 1162 z:REM checksum 


Me en Wen Me an ie Tia Bn Me Ven Vr Mn Min Ma Ieke B Gin Men Mn hie Pile Akin Vie Dine Bkae ie Minn Pee Mise Wan Win Bin ke Mia Mie Wie Bie Min Min Ba We Pie Mien in ie Win Tin inn ae Mn Mien Mn an 


24708 : / 25-78 
248A REM @) SPRITE 3 dà id zZ756& 
2498 DATA 192119754814 12 17 4 3718 
250A DATA Jes Ze Ze Ze 1E 1E / 3404 
2518 DATA 48:48, 1927: 197 31 3 / 3O42 
2520 DATA 175125485485 192: 197 / 3748 
2530 DATA 192751927548: 481 1279 17 / 3758 
2540 DATA Js 3 / Z96R 
2558 DATA 2040 zREM checksum / 30354 
2560 : / Ze18 
2574 REM @à INTERN BESTAND &à / 2044 
2580 DATA Ss Ik4sgeef ls de5s Paes? / 4522 
2590 DATA melkz / 3347 
260A DATA SsEen5SsgrateZsfiets?sisl / 4898 
2610 DATA nietz=6 / 3493 
2420 DATA 5sDie7sianden?sdraagti1 / 4783 
2630 DATA ziin8stast / 3833 
2640 DATA bsHetSsraardZsstaatisin® / 4976 
z65@ DATA de5sstals / 3716 
Z668 DATA SsEenSsaraenedsPlant? / 4744 
2678 DATA hlaeitismaaitd je 41 
2680 DATA bsDeze7shand7sheeftiseens # 505% 
2698 DATA maatedsstaart? / 455 
2700 DATA bAsZiin8sbhoaekZsetaatlsin®9 / 5008 
2718 DATA de5skastt / 3775 
2720 DATA SsEenSsplaats2sin9sde5 / 475 
2738 DATA schouwkburas / 4159 
274A DATA A4sNerGdenzásstaatisdeSswesz / 5243 
2750 DATA &sZiin8Bsmaederfskentishet5 / 527? 
2768 DATA verhaalfsaak& / 4558 
27708 DATA 9sDe5slezerZsvan?sde5 / 4739 
2780 DATA krantZsmoettsde5sPruzzelZ / 562 
2790 DATA radent / 3543 
Z800 DATA Os <STOPE / BOZE 


4.9 Hetzelfde woord 


Op het beeldscherm verschijnt een vlaggestok met de vlag van Nederland met 
daarnaast een mannetje. Links van het mannetje verschijnen drie woorden 
met daaronder in een vak ook nog een woord. Het woord in het vak komt ook in 
het rijtje woorden voor. Het is de bedoeling dat de kleuter door het invoeren 
van het nummer vóór het woord aangeeft welk woord hetzelfde is. Is het ant- 
woord goed dan trekt het mannetje de vlag omhoog. Is het antwoord fout dan 
zakt de vlag en staat het mannetje nee te schudden. De melding goed en fout 
wordt nog ondersteund door geluid. Het programma geeft door kleurverande- 
ring van een woord aan welk woord bedoeld werd. Tijdens de vraagstelling 
zakt de vlag ook. Het is dus zaak zo snel mogelijk te antwoorden om de vlag in 
top te krijgen. 

Door tijdens de vraagstelling op F1 te drukken kan het programma worden on- 
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derbroken en verschijnt het resultaat op het beeldscherm. Wordt het program- 
ma beëindigd omdat de vlag in top gekomen is dan zal er een melodietje klin- 
ken en zal eveneens het behaalde resultaat zichtbaar worden. Het programma 
kan een groot aantal woorden opnemen. De minimale lengte van een woord is 
drie karakters. De maximale lengte is acht karakters. U moet er wel op letten dat 
u een woord niet meerdere keren invoert. De interne dataregel moet u op de 
bekende manier afsluiten: regelnr. DATA <STOP>. 

Het kan zijn dat de bedenktijd voor de vraag te lang of te kort is. U kunt dit zelf 
instellen door in de module ‘Initialiseren’ de bedenktijd te wijzigen. Deze be- 
denktijd in seconden is opgeslagen in variabele T2. De speeltijd is niet gelimi- 
teerd. Het programma stopt als de vlag in top gekomen is. 


Programma 

18 REM *#** HET ZELFDE WOORD Hr / 22 

z@ CLEAR 5040 / 576 
30 KEY OFF / 407 
40 SCREEN #42 / GE 
5 DIM A$(SAsA)sACA)s BEA) / 1tzZt 
&A GOTO 2590 / 581 
78 : / 128 
84 REM «xx INITTALISEREN ### / 356 
NB OPEN "GRP:" AS HI / ga7 
10A A& = "[F-1]1 = Stappen spel." / z06z 
118 XZ = 20 : YZ = 88 £ GOSUR 868 / 1369 
150 A$="Een aGenblik geduld a.u.k. '" / 2713 
138 XZ = 28 :YZ = 128 : GOSUB 860 / 1432 
14A GOSUR 52 REM sar SPRITES / 675 
158 GOSUB 390 REM 4x INT DATAF / 490 
168 GOSUR 710 REM «xr VLAG / 646 
178 E$ = "123" REM te accerteren / 554 
188 REM ## VARIABELEN TOEWIJZING ## / 7e 
198 A = RND(-TIME) / 7E 
208 DEF USRI=&HI156 :REM kevbrd leeg / 1033 
z18 DEF USRZ=&HID REM geluid leeg / edet 
220 DEF USR3=&H41 REM scherm disable / 1402 
230 DEF USR4=&H44 EREM scherm enable / 1814 
240 DEF FNA(A) = INTORND(I) KA) +1 / 1740 
250 KEY 1s*2* / 787 
Z468 Al$ = "V1ISLGS1IMSSABE" / 1474 
278 A2$ = "V1ISL9SBMI9GFE" / 1405 
2830 M$ = "T145V15L9511MSSFGAHAHGGFR" / za8a 
290 M$ = M$ + "+FGAHA+GGFRBG" / 14:57 
308 GD = 1 REM SGeluid aan=i / 549 
31 TE = 5 REM bedenktiid sec. / 556 
320 PD = @ REM niet anderbraken / WAT 
350 G=@ : T=8 :REM Goed / aPpgaven FP 7&1 
340 Y = 104 :REM start vlag / 635 
350 RT = @ / 475 
368 RETURN / R4A 
370 : / 48 


380 
5 
408 
410 
420 
430 
440 
450 
4608 
47 
450 
493 
500 
518 
520 
530 
540 
550 
562 
570 
580 
590 
AA 
614 
620 
630 
642 
650 
640 
670 
638 
690 
748 
718 
770 
730 
740 
7508 
748 
770 
7808 
790 
AA 
818 
8208 
830 
840 
850 
860 
870 
28 
890 
JA 
N12 
920 
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REM #x*x INTERNE DATA FILE ##x 
FOR J=l TO 6 t ACJ)=D £ NEXT J 
RESTORE 3450 

FOR IT = 1 TO 349 

READ A& : L = LEN(AS) -Z 

IF L2& OR Lt THEN 480 

IF A{L) >= 50 THEN 480 

ACL) =ZACLD +1 : ABCA(L)sL) = Ab 
IF A$ <> "<STOP>" THEN 480 
AL) = All) -1 : 1=340 


NEXT I 

RETURN 

REM #x% SPRITES INLEZEN «a 
RESTORE 

READ SP ‘REM aant sprites 
FOR J = 1 TO SP 


SD$ = "* £ SC = B 

FOR T = 1 TO 32 

READ SD £ SC = 5C + SD 
SD$ = SD$ + CHR$(SD) 


NEXT I 
READ SD REM checksum 
IF SC = 5D THEN 6560 


SCREEN @ 7 COLOR 155454 
PRINT "Data van zrrite"sJ5 
PRINT "ziin fautief." 

STOP 

SPRITES(J) = SD% 

NEXT J 

RETURN 

REM ##&* VLAG NEDERLAND #%% 
A$=" u 8 R$= u S C& == nu 
FOR I= 1 TO 2 


A$ = AELSTRINGE(&s CHRE(AZ55) ) 
A$ = AS+STRINGS(10:CHR$(O) ) 

R$ = B&+STRING$(4s CHR$ (OD) ) 

E$ = B&+STRING$(5s CHR$ (255) ) 
R$ = BE+STRINGE(5s: CHR$ (OA) ) 

C$ = CH+STRINGE(11s CHR$ (OA) ) 

C& = CH+STRINGE(Ss CHR$ (255) ) 
NEXT I 

SPRITES(9)=Ab : SPRITES( LA) =RE 


SPRITES(11)=C$ 
RETURN 


REM #*% TEKSTRIJ #xx 
FOR J = 1 TO LEN(AS) 
C$=MIDS(ASs Js 1) z Xe ko-btXE 


DRAW "BM=X 35 s=YZ5" 8 PRINTH1s C& 


NEXT J 
RETURN 


REM xxx BEELDSCHERM ##% 


ae Mi Ain Me Pein ie Mee Mn Bie Win We Hi Mi Mee wien Bin Vac Mr Korn Win Wa Wir Kan Bh Mi nn Wia kie in in en ke ie Hin Men Mo Me Min Mn Mn hen ik 


Sr Et WS PE Wi Vi is 


930 

940 

950 

960 

970 

980 

a 

1008 
18108 
18208 
10308 
1040 
1958 
1060 
18708 
1080 
1892 
1104 
1110 
11208 
1130 
1140 
1150 
1160 
1170 
11808 
1199 
1200 
1710 
1720 
124350 
1240 
1450 
15608 
1270 
1280 
1290 
1500 
1310 
1328 
13538 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
14108 
1420 
1430 
1440 
145 
1460 
1470 


DUMMY = USR3(Q) 
COLOR 155454 1 CLS 
LINE(@:8) -(255,115)s4s BF 


LINE(@s116)-(255s120)s 11, BF 


LINE(@s121)-(255, 132): 29 BF 
LINE(@s 133) -(255s 191) s 3e BF 
REM #x ZON MET WOLK #% 
CIRCLE(145s 30); 15,10 
PAINT (15020); 12 

LINE (155,60)-(730s460)s 15 
CIRCLE(160:45)s 15,15 
CIRCLE(19@: 30) s 30: 15 
CIRCLE(230: 40) s 20: 15 

LINE (155,55) (220: 35) s 44 BF 
PAINT(2Z10s45)s 15515 

REM #x VLAGGESTOK #x 


LINE (210, 120) -(210: 20); 19 BF 
Y2 = 123 £ X2 =168 £ COLOR 1 


A$ = "Punten #* £ GOSUR 860 


A$="Welk waard is Gellik 415437" 
XE = 20 £ YZ = 168 £ GOSUR 668 


PUT SPRITE is (198,89) s 11 
PUT SPRITE #1 (190105), 192 
PUT SPRITE 7s (198,89) s 9: 7 
DUMMY = USR4 (A) 

RETURN 


REM #%# OPGAAF Kx 


HEFNA(&) 8 IF ACH)=@ THEN 1710 


FOR LH = { TÔ 3 

KR = FNA(ACH)) 

BE(LH) = AB(KRsH) 

IF LH = 1 THEN 1310 

HP = 1 

FOR Leke 1 FO LM] 

IF B&(LH)=BS(LI) THEN HP=0 
NEXT LI 

IF HP = @ THEN 1230 

NEXT LH 

LH = FNA(3) & REM antwaard 
RETURN 


REM #ew VLAG HK 

IE Y £ 19 THEN Y=19 

IF Y > 108 THEN Y = 109 

PUT SPRITE 9s(211sY)s6s9 
PUT SPRITE 10: (211sY)s15s 10 
PUT SPRITE 11s(211sY)s4s1t 
IF Y < 20 THEN W=A:PD=Z 
RETURN 


REM aen GOED 1e 

IF RT > 70 THEN 1590 

FOR Y1 = 100 TO 85 STEP -£ 
PUT SPRITE 15 (19AsY1)s1s6 


Mis Na EG TAG MNN Oi Ware ME. A Wo Mar Nie Vr A MET Mit Es Vr, Me Mi Be eea et Mt eri Nt in an a Ns Mi Mi a ae NN Mi ir Nt 


181 7 
1941 
2220 
2376 
2337 
2356 
z504 
209 
1904 
2265 
21:37 
z141 
Z146& 
2440 
2119 
2347 
Z493 
2348 
2564 
3558 
24356 
2531 
z580 
2371 
2458 
1aaA 
1248 
1476 
2718 
1923 
1940 
Za87 
zt 
1522 
21465 
2744 
1758 
2205 
1777 
1874 
1810 
1398 
1426 
2317 
ZA 
2767 
zaan 
2847 
2o1& 
1923 
1488 
1718 
Z4 4 
2718 
28691 
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1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1624 
1630 
1644 
1650 
1660 
1670 
1688 
1690 
1700 
1718 
1720 
1730 
1740 
175@ 
1760 
1774 
1780 
1790 
1800 
1814 
1820 
1830 
1840 
1850 
18454 
1870 
1880 
1890 
1900 
1910 
19:20 
193 
1940 
1950 
1944 
1970 
1980 
1990 
2000 
2010 
2020 


154 


PUT SPRITE 25 (198: Y1-16)5 155 

PUT SPRITE 7s(198sY1-16)s 918 

FOR J = 1 TO 18 : NEXT J 

NEXT Yi 

FOR Yi = 85 TO 100 

YeY-1 £ GOSUB 1368 :REM xx VLAG 
PUT SPRITE 15 (192ZsY1)s1s& 

PUT SPRITE 29 (192sY1-16)s 155 

PUT SPRITE 71 (1927sY1-16)5918 


NEXT Y1 
REM &% SPRINGEN «# 
SR = 2 


FOR I = 1 TÔ 10 

IF SR=Z THEN SR=4 ELSE SR=Z 

IF SR=Z THEN Y1=105 ELSE Y1=89 
PUT SPRITE 1s(190sY1)s 1: SR 

PUT SPRITE #9 (198sY1-16)s 1sSR-1 
PUT SPRITE 7s(198sY1-16)s 9» 7 
FOR J = 1 TO 50 £ NEXT J 


NEXT I 

RE TURN 

REM «an FOUT wer 

SR = 1 

FOR I = 1 TO 20 

IF SR = 1 THEN SR=5 ELSE SR=1 
IF SR = 1 THEN SP=7 ELSE SP=8& 


PUT SPRITE 1s(19@:185)s 152 
PUT SPRITE 2: (198:39); 1: SR 
PUT SPRITE 7: (198,89): 9: SP 
Y = Y + .,5 £ GOSUB 1360 
FOR J = 1 TO 5@ : NEXT J 
NEXT I 

RETURN 


REM xe GOED/FOUT ex 

IF W= 8 OR PD : @ THEN 2318 
A$="Gued" & D$=Al& : Hei 

IF LH = Hi THEN 1380 
Af="Fauut" 8 D$=zA2$ : H=d 

G= G + HtTe= Teti 

Xö=150 : YZ=70 : GOSUR BA 
LINE(210s 141) -C255e 132) 4 Ze BF 
DRAW" BMZ10: 123" 7 GOSUB BAA … 
XD 8 YR2=E(LH-1)#20+30 

As = STRE(LH)+4" = "+BE(LH) 
COLORT £ GOSUR 240 
DUMMY=USRZ (0) :REM reset deluid 
IF GD=t THEN PLAY D& 

ON H+1 GOSUR 17101450 

IF PLAY(G) = —1 THEN 1933 

IF SR = 1 THEN SP=7 ELSE SP=8 
DUMMY=USRZ (0) 

RETURN 


NE NE ENE Ne rg ir VS Pk Ns Nt MI Bi NE OEL U Wot Di Or IE Wi OET WET VGM Ni NE Bi A Mi Mi A A EE Ot Ui EE Ei Wi Wi NE ME is WE 


3A49 
3075 
7676 
1967 
2367 
2507 
2963 
3121 
3147 
ZA27 
2255 
1866 
2274 
3183 
3300 
316 
3415 
3254 
279 
2067 
z14A 
1748 
1976 
1985 
2395 
3307 
3317 
3179 
3248 
3289 
2845 
2920 
2192 
2790 
1671 
z1AS 
305 
307 & 
PAS 
3127 
BS rd 
A0 
3366 
3364 
3481 
3514 
2972 
„265,36 
469 
Si ZZ 
3250 
3567 
RAG 
2490 
za7a 


2030 
2040 
2850 
2060 
2070 
2080 
2890 
2100 
21108 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
22780 
2290 
2300 
2312 
2320 
z530 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
24708 
2400 
24908 
2500 
2518 
2520 
2530 
z540 
2550 
2564 
2570 


REM #%% OPHAAL #% 

TIME=Q : KL=i5 £ COLOR 15 

W = B £ GOSUB 13460 
LINE(38: 20) -(105, 105): 41 BF 
LINE(149:658)-({1808: 73) s 41 RF 
LINE(182:s 140) -(202: 170): 3: BF 
FOR I = 1 TO 3 

X2=38 £ YE=(I-1) 20430 

A$ = STRE(I)+" = " + BI) 
GOSUR 84A :REM #&* TEKSTRIJ 
NEXT I 

LINE (55585)-(105:105): 151 B 
XZ = 68 : YZ = 98 £ COLOR 1 
A$ = B$(LH) £ GOSUR 860 
DUMMY = USR1 (A) 

IF TIME MOD 15 <> @ THEN 2220 
IF KL=i THEN KL=3 ELSE KL=1 
DRAW "BM182:168" £ COLOR KL 
PRINT #1s"72" 

IF PD > @ THEN 2350 
L$=INKEY$ : IF L$="" THEN L$="à" 
IF L$ = "2" THEN 2350 

Hi = INSTR(ESsL$) &: GOSUR 1360 
vs ve. 

IF H = @ THEN 2290 

GOSUB 1360 :REM #x# VLAG 

T3 = T2#50-TIME 

IF Hi=@ AND T3 & @ THEN 2190 
IF HI = @ THEN L$="2" 
LINE(187: 150) -(202: 170) » 31 BF 
DRAW "BM187s16A" £ COLOR 1 
PRINT #1sL® : W = 1 

RETURN 


REM «xx RESULTAAT «+ 

RT=B £ COLOR 1 

IF T=8 AND G=@ THEN 2410 
RT=INT(G#108/T+.5) £ GOSUBR 1360 

LINE (@s131)-(2554 191) s 31 BF 

A$=" Aantal arPpgaven &" + STR$(T) 
Zei ft YZ=148 t GOSUB 2460 

Af=" Aantal Gaed 8“ + STRE(G) 
XA z Yi=iSA £ GOSUR H60 

A$="Percentade Gaeds" + STRE(RT) 
XD 8 VE=160 t GOSUR 260 
DUMMY=ZIUSRZ (A) 

A$="Druk een taets in '* 

Xi=20 8 YZ=188 : GOSUR 240 

IF PD=Z AND GD=1 THEN PLAY M$ 
IF PLAY(G) = —-1i THEN 2520 

DUMMY = USR1(@) £ RT = 100 
AS=INKEYS : GOSUR 1450 

IF A$="" THEN 2540 

RETURN 


EEN Nae Ws TNG PN Dit DTP it Gj Hose Ms Dt MD INNEN Mi MTN WS MM NE Mi ME Mis Mi MENE Vi Mi Ml EENES NE ir MM A Me: Oi SG Wis 


2580 
2590 
262a 
2610 
2624 
2630 
2640 
2650 
266 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
7740 
2750 
2760 
z770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
z870 
z880 
2890 
200 
2910 
2920 
2930 
Z4a 
z95(4 
296 
297 
798 
299 
3004 
3010 
3A20 
3030 
3040 
3050 
3460 
3070 
3480 
3090 
3100 
3112 
3120 
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REM sax STUURMODULE Herr 
GOSUR 9@ REM xxx INIT 
GOSUR 930 :REM #xx BEELDSCH 
GOSUB 1210 :REM xx OPGAAF 
GOSUR 2040 :REM #*r OPHAAL 
GOSUB 1840 :REM xe GOED/FOIUT 
IF W <> @Q THEN 2610 

GOSUR 2380 :REM #** RESULTAAT 
DUMMY = USRZ(0) 

COLOR 1554:4 : SCREEN @ 

END 

Hd 

REM @99 INTERNE DATAFILE d99 
DATA 8 :REM aantal sprites 
REM @& SPRITE 1 aa 

DATA 16515: 51s63e 111 

DATA 71s7s8:18s 171 70 

DATA 1948171 11 A: 4 

DATA Os 1785 1781 1975 197 774 
DATA 165721136540: 200: 16 

DATA 2741 128 

DATA 2100 :REM checksum 


REM @ò SPRITE 2 dà 

DATA 31:63: 55455s551 55 

DATA 48:55« 551 481 38: & 

DATA 656 30: 30: 248: 252 

DATA 23617361 7361 2361 121 736 
DATA 2365100: 1AA: 96196: 96 
DATA 120170 

DATA 3287 :REM checksum 


REM 9) SPRITE 3 dà 

DATA Zs6115s31s6.3s 111 

DATA 71514551365 2105 209: 217 
DATA 2115200: 199: 2255 Qs 4 
DATA 01128: 128: 192: 1975 225 
DATA 175754139435 2051 19 
DATA 2271135 

DATA 3759 «REM cheeckzum 
REM 9) SPRITE 4 dà 

DATA 25525541278 31s7s 7 
DATA 71sAs7s4&1s4616 

DATA 6161 30: 30: 2551 255 
DATA 254sZ40s ZZA Ze 2E4s B 
DATA 2245965996: 965 96: 96 
DATA 120: 170 

DATA 3414 :REM checksum 


REM A& SPRITE 5 &à 

DATA 141574155155 15 

DATA 11535 3s 7: 7s& 

DATA 4505211580: 178 

DATA 128:192:1925 192: 224: 240 


De Hin nn Mee Min Men Me in 


iP in: Ve. Me Wk Vin Vn Tie Vis Bin De Mise ien a Mie Mn Mi ie er Ma Mie Mn in Me ie Ken Mie ne on ie Wi Wi lii ie bn Pine Bin ie ve ie Mn Un rien 


z856 
347% 
3140 
3190 


AT 
ed de Me A 


3219 
3544 
3239 
3546 
3901 
289% 
2748 
2976 
A4 
3276 
4790 
3764 
3614 
HAES 
393 
3413 
3767 
Zana 
3084 
3951 
390 
A97 
Nard) 
4140 
340 
3369 
za 
3176 
397 
RA 
q 1 
408 
4179 
3504 
AAR 
3068 
366 
41 7Aa 
3857 
4140 
4349 
4249 
3670 
3546 
3128 
3356 
4A51 
3 bh 
4014 
4547 


3134 
3140 
3158 
3164 
3170 
3182 
3190 
3200 
32108 
3220 
3230 
3240 
3250 
3-60 
3274 
3280 
3290 
3302 
331 
3320 
3330 
3340 
350 
3360 
3370 
3380 
339 
3400 
3410 
3420 
3430 
344 
3454 
3460 
3470 
348 
3490 
350 
3510 
3520 
3530 
3540 
355@ 
3560 
3570 
3580 
359 
36AA 
3618 
3624 
3630 
3640 
3650 


DATA 
DATA 
DATA 


Bs112532,8:0s: 112 
B: 128 
1786 : REM checksum 


REM 29 SPRITE 6 98 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


KSWANANAWA NG 

7ss Zels 1s1 
tetadels 1350 25 
248240: 240: 240: 240: OD 
22441785 128: 1285 12Rs: 178 
224: 224 

2965 :REM checksum 


REM 29 SPRITE 7 92 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


As As0s As As A 
@sAs15s31s ALs 31 
31s15s7s0s0s 0 
QA: A: A: Os A 

240: Z4Rs 740 2483 7483 24 
Z24,0 

1857 :REM checksum 


REM 2 SPRITE 8 @à 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


VEREN ER OEREN) 

As As As As As 1 

Js 7slstls0s A 

Ae As As As As A 

EAO s Z4Ar PAD LMA r Ae 24 
Z40s A 

1693 :REM checkaum 


REM AAP OPGAVEN DAA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


hats pansdarns dak 
padsmars laks mat 
zaksaalsrmams kam 
takspaksrPrapsrak 
kaksaaksteaks bak 
decams keers Sams alm 


zeemsriemsrnaaiskade 
ladesbhaatsautasband 
zandskantslandsrand 
zwemstruisvuilsvies 
keezsheessmiersdier 
viersdiersdesPpswespP 


snaarsPpianasfluitsklamP 
paards leeuwsbeestskaart 
snaepsbaters larersbraad 
schirsblaemsPlantswater 
laarsskrantsspelds luier 
wadenswadaunsstaelstafel 
<STOP: 


AAE NME NEA WD Mo SSDS Doe A a nail re tE EN AG WT IEEE RG RIS EERE as 


4181 
3469 
3645 
3218 
3446 
4008 
3993 
4207 
4512 
4649 
3340 
3736 
3308 
3536 
4A6A 
4730 
419% 
440 
4744 
A46 
SRS 
3498 
hb 
4150 
4161 
4187 
4180 
4007 
NAT 
A12 
Kapr 
3714 
5119 
514. 
5170 
5197 
SZ12 
5 AR 
3548 
5610 
5632 
5645 
5754 
5664 
5720 
3638 
4157 
61472 
6193 
6186 
& 203 
6195 
4 380 
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4.10 Voegwoorden 


Dit programma traint het gebruik van voegwoorden. Op het scherm verschijnt 
een zin. Op een bepaalde plaats in de tekst staan puntjes. Op deze plaats hoort 
een voegwoord. Het programma geeft drie mogelijkheden in een multiple 
choice samenstelling. Eén van de woorden kan worden ingevuld. Door het in- 
toetsen van het nummer van het voegwoord, kunt u aangeven welk woord 
moet worden ingevoegd. U moet niet vergeten na het intoetsen van het num- 
mer de RETURN-toets in te drukken. Is het antwoord juist dan verschijnt direct 
de volgende zin op het scherm. Was het antwoord fout dan verschijnt het goe- 
de antwoord op het scherm. De interne datafile kan in totaal dertig zinnen be- 
vatten. U moet de zin over twee DATA-regels spreiden; bekijkt u de zinnen 
maar eens in de interne datafile. Op de plaats van de twee dollartekens hoort 
het voegwoord. Na het tweede gedeelte van de zin komt een komma gevolgd 
door een getal. De betekenis van de getallen is als volgt: 

1 = want 
2 = toen 
3 = en 
4 = omdat 
5 = alsof 
6 = maar 
7 = terwijl 
8 = zodat 

9 = hoewel 
10 = waarom 
11 = ofschoon 
Aan de hand van het voorbeeld in de interne datafile kunt u zien hoe u zelf re- 
gels kunt toevoegen. 


Programma 

18 REM zer VOEGWOORDEN sx / 228 
20 KEY OFF / 477 
38 CLEAR 1000 / sa 
40 DIM 7$(30s Es BE(11)s DI)» 230) / 1541 
58 DIM A10) / 511 
&B COLOR 311313 / 787 
70 SCREEN 3 / 569 
8A OPEN "GRP:*" FOR OUTPUT AS #1 / 1745 
PA DEFUSRI = &H41 / 568 
108 DEFUSRZ = &H44 / A87 
118 DEFUSR3 = &H90 / 894 
120 DEFUSR4 = &H156& / 956 
134 RESTORE / 4&7a 
1408 GOTO 2340 / 654 
159 : / <08 
160 REM xxx INITIALISEREN #%% / 436 
178 CLS : TI = RND(-TIME) / 1329 
188 COLOR 1515515 / A4 
190 SCREEN #53 / 783 
208 GD = 1 £ REM 1 = GELUID AAN / 449 


218 
220 
230 
2408 
250 
268 
270 
280 
290 
308 
318 
320 
330 
340 
350 
360 
374 
300 
390 
400 
410 
420 
430 
44A 
450 
464 
470 
4D 
490 
500 
51 
520 
530 
540 
550 
560 
570 
580 
590 
&AB 
10 
670 
3 
640 
650 
660 
670 
&80 
690 
708 
710 
728 
730 
740 
750 


ie Q : G= 8 : 
P @ 7: NA = @ 
BE(1)=" want" 
B$(I)="en" 
B&(5)="alsaf" 
RB$(7)="terwiil" 
B$(9)="haewel" 
B$(11)="afschaan" 


REM RESULT. TLRS. 


BE{Z)="taen" 
B&(4)="amdat" 
B$(6)=" maar" 
B$(8B)="zadat" 
2R$(10)="waarem” 


EES = CHR$(13) +-CHRE(B) 
FFS = "BIZA" t EES 

G1$ = "VISL9S11MSSABE" 
GZ$ = "VISL4S11MPAOZBAG" 


GOSUB 380 
KEY 1s "@"+CHRE(1 
RETURN 


3) 


REM #&##INTERNE DATAFILE LEZEN 


FOR 1 = 1 TO 38 
READ Z&(Ts1)sZE(I 


22I CTI 


IF Z&(Is1)<5"SSTOPZ" THEN 420 


NA = I=: I= 
NEXT I 
RETURN 
REM #** 38 POS(TI 


LA = LEN(M$) 

FOR K = 1 TO LA 
NE = MIDB(M&s Ka 1) 
Mi = (K-1)#b + M 


3 


ES PRINTEN #xx 


PRESET (MaM) & PRINT H#1sN$ 
NEXT K 

RETURN 

REM «xx LANGE ZIN #xx 


J = LEN(MB$) 


IF J {<= 38 THEN &1@ 
FOR: K = 38 TO B STEP =1 


THEN 652 


J= K 

IF MIDS(MRSsKs1)=" * THEN K=@ 
NEXT K 

M$ = LEFT$(MB$sJ) 

MA$ = "" 

IF LEN(MB$) <=38 


MAS=MIDS (MB$s J+41 s 
RETURN 


LEN(MB$) -J) 


REM #xx OPENING se 


DUMMY = USR1 () 
M$ = "vaeg-" 


PRESET {(&A: 58) 7 PRINT#1sM$ 


M$ = "waarden" 


PRESET(28:908) £ PRINT#1sM$ 


DUMMY = USRZ(0) 


FOR 1 = 1 TO 2008 : NEXT I 


RETURN 


GN ARE IK A Ee He Ke Ss De ee RE EEE ED Ee En KERA We WEEDE A WI Ss AE EE 


441 
719 
1891 
1769 
1989 
2368 
2397 
1553 
1400 
1420 
1430 
1616 
849 
126% 
an 
4e 
bah 
1A54 
1753 


2407 


127 
817 
1 
49R 
7 e 6 

1479 

1190 

NN a} 

1144 

1994 
O4 

1AA0 
sas 
814 

1148 

1459 

14665 
79A 

2107 
94 

1497 
E77 

1942 

2249 

1132 
718 
45 

1565 

1410 

2191 

1718 

2219 

1616 

1961 

12304 
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760 
770 
788 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 


: 
REM #ax KOP xx 

DUMMY = USR1 (A) 

M$ = "HHK VOEGWOORDEN dd 
M = 53 : N= 8 £ GOSUB 440 
M$=" Aantal aPdaven : 
M = 23 £ N= 12 £ GOSUB 460 
M$=" Aantal Jaede antwaarden & 
N = 20 £ GOSUR 460 

RETURN 


REM xxx SCHERM OPBOUWEN 
LINE(194;s 12) -(260s 28) s 15: BF 


89A PRESET (2A3s 12) : PRINT #1:T 
908 PRESET (203: 20) : PRINT #1:G 
GIA MES = A$+RE 

M20 M= 23 8 N= 20 

930 GOSUR 55D 

N48 M = 23 8 N= 32 : GOSUE 4460 
ISA M$ = MAF 

P6D N = 44 z GOSUR 440 

978 M$ = "Welk vuedwaard moet ern " 
MBA ME = ME + "indevuld warden 2" 
IIA M= 23 £ N= 54 £ GOSUB 460 
100A FOR 1 = t TO 3 

1818 M$ = STRE(I) 

1820 M = 71 & N = 6A+I#8 : GOSUB 460 
1034 M$ = RE(D(I)) 


1040 M = 87 : N= A + 1 «8 
1058 GOSUR 4460 

106A NEXT T 

147A DUMMY = USR (0) 

1880 RETURN 

189A : 

1100 REM ##*x SCHERM WISSEN #&x 
1118 LINE(Os 78) -(268: 140): 15: RF 
1120 RETURN 

1130 : 

1140 REM #er INVOER #ex 


le): Me EC Ee | 
1168 M$ = 


"Wat is de antwaard 7? 


1178 M= 23 £ N= 95 2 GOSUB 440 
1188 M$ = "14213 af B vaar star " 
1190 M = 23 : N= 184 :£ GOSUR 4460 
1208 DUMMY = USR4(A) 

1210 L= LL + 1 

1220 S% = 5% + T$ 

1230 LINE(151s104) (268: 112): 15:BF 
12408 M$ = 5% : M= 151 : N= 184 
1258 GOSUR 4460 

1260 T& = INKEY$ 

1270 IF T$ = "" THEN 1263 

12808 V = INSTR(FF$: T$) 

1290 IF V = @ THEN 1260 

1380 IF V <> & THEN 1340 
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NEON AG DEGENEN SE AE ENEN ISA ENE AE AN SE RNA Ke Ee ET WN GES Wi CEE EF A EK 


818 
1446 
1665 
2323 
1883 
Z847 
1951 
344 
1673 
1330 

1 
1146 
2312 
2397 
2393 
147 
14554 
1 Abad 
273 


1310 IF L < 1 THEN 122% / 2138 
1320 L = Ll —- 2: 5% = LEFT$(S%sL+1) / 2613 
1348 T$ = ** / 1579 
1348 IF V = 5 THEN T$ = "" / 2235 
135A IF V = 5 AND L = @ THEN 1230 / z59A 
1368 IF V <> 5 OR L = @ THEN 1210 / zene 
1370 IF 5% = "@" THEN 1440 / ep IE | 
1388 T= T + 1: Vv=g / 1954 
1398 IF VAL(SE) <> Y THEN 1410 / 2477 
1400 G= G + 1 8 Vv=i / 1949 
1418 ON V + 1 GOSUB 1478 « 1590 / 254 
1420 REM #* WACHTLUS ## / 2817 
1438 FOR IT = 1 TO (2-V)#75A : NEXT I / #17 
1440 RETURN / 1920 
1450 : / 1508 
1468 REM #ax FOUT «ex / 17:34 
1470 PRESET(80: 150) / 2314 
1488 PRINT #1s">> F OUT <<* / 2795 
1498 DUMMY = USR3(O) / 2377 
1500 IF GD = 1 THEN PLAY GZ% / 2667 
1518 M$ = "Het antwaard was & " / 3436 
1528 M= 23 £ N= 116 8 GOSUB 460 / 2704 
1530 M$ = STRE(Y) / 2159 
154A M= 71 3 N= 128 : GOSUB 460 / 2730 
155A M$ = BE(Z(X)) / 2166 
1560 M = 87 : N= 128 : GOSUR 460 / rd Nd 
1570 RETURN / 2050 
1580 : / 1638 
1590 REM #&r GOED Hek / 1866 
1600 PRESET (8: 150) / Z44b 
1618 PRINT #15">> GOED <<" / 2894 
1628 DUMMY = USR3(@) / 2507 
1638 IF GD = 1 THEN PLAY G1% / 2791 
1648 IF © = @ THEN 1730 / 2479 
1650 FOR I = ft TO @ / 2308 
16468 IF A(T)<>X THEN 1720 / 2737 
167Q IF @ = 1 THEN 1710 / 2508 
168Q FOR J = 1 TO @® — 1 7 2457 
1690 A(J) = A(T+1) / 2284 
1708 NEXT J / 2093 
1714 JT = 0: 0=E-i / z304 
1723 NEXT I / 2112 
1730 RETURN / 2210 
17408 : 7 1798 
1758 REM #x*r OPGAVE Her / 2426 
1768 X = INT(RND(I)#NA+1) / 2040 
1778 IF X = P THEN 1763 / 2651 
17808 IF @=8 OR RND(1)>.75 THEN 1810 / 3353 
1798 XZINTARND(ID KOI) 2 X=ACX) / 3269 
1800 REM ##*ZIN SAMENSTELLEN%# jd 3497 
18109 E = A / 1985 
1820 FOR J = 1 TO 2 / z44a 
1830 L = LEN(Z$(XsJ)) — 1 / 2778 
1840 FOR 1 = 1 TO L / 2493 
1850 G& = MID$S(Z$(XsJ)s Is) / 2977 
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1860 
1870 
1888 
1890 
1900 
1910 
1920 
1930 
1940 
195Q 
19603 
1970 
1984 
199 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2480 
2890 
2100 
2110 
2120 
2130 
21408 
2158 
2160 
2170 
21808 
2190 
2200 
22108 
2220 
2230 
2240 
2258 
2260 
2270 
2280 
22908 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
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IF G$ <> "$$" THEN 1920 
D$ = LEFT$(Z$(XsJ)s 1-1) 
E$ = RIGHT$(Z$(Xs J)sL-1) 
F$ = D$4", ‚non "TES 

G$ = D$+RE(Z(XI)+ES 
EJ ide 2t Iek 
NEXT I 

NEXT J 

A$=ZE(X« 1) B$=ZE (Xs 2) 


G$=ZE(Xs 1) 2 HEZE (KsZ) 
IF Ezi THEN A$=F$ : G$=0% 
IF E=2 THEN B$=F$ : H$=0% 
REM ##MIJLTTPLE CHOICE#+% 
FOR I= 1 TO 3 

D(I) = INT(RND(1)11+1) 


IF DI) = ZX) THEN 2000 

IF I = 1 THEN 2280 

H= @ 

FOR J = 1 TO I= 1 , 


IF DUI) = DJ) THEN H= 1 
NEXT J 

IF H = 1 THEN 2000 

NEXT I 

REM #GOEDE ANTWOORD PLAATSEN* 
Y = INTERND(1)#341) 

D(Y) = ZX) 

P=X 

RETURN 


REM «xx RESULTAAT #*x 

R= 8 

GOSUR 789 : REM KOP 
PRESET(203s 127) £ PRINT #1,T 
M$=" Aantal Gaede antwoaarden & 
N = 28 £ GOSUR 440 
PRESET(203: 20) £ PRINT #1:G 
R = INT(G#108/T + .5) 
M$="Percentade Saed de 
N = 28 £ GOSUR 460 
PRESET(203: 28) £ PRINT #1sR 
DUMMY = USRZ((A) 

M$ = "" £ PRESET(23s 188) 

DUMMY = USR4(A) 

PRINT #1s"Druk een taets in" 
MS=INKEY$ £ IF M$="" THEN 2304 
RETURN 


REM swr STUURMODIJLE Hek 
GOSUB 638 :REM ##* OPENING 
GOSUR 178 :REM #x*x INIT 
GOSUB 72A :REM xe KOP 
GOSURB 1760 :REM sx OPGAVE 
GOSUR 888 EREM ##* SCHERM 
GOSUR 1153 :REM #x*% INVOER 
GOSUB 1119 :REM #*e WISSEN 


PENS De NUNEN DIG NE NEGEN Ni TE ONEENS Nn NINE ET NMG NE DEELNEMEN EE EL MENE NS iN We GEEK, Ee U LM: 


2879 
3075 
3196 
2742 
2815 
Za25 
rib U, 
2323 
ZAG 
SIE 
3196 
3209 
3447 
Z618 
4105 
3192 
2851 
2211 
2785 
3184 
Z454 
2892 
2472 
2700 
31A9 
2668 
2349 
2610 
2128 
z426 
2351 
2713 
3487 
4784 
3033 
3703 
3210 
4787 
3081 
3702 
3146 
3416 
3168 
4471 
3837 
2790 
2370 
z606 
2887 
28864 
2943 
2960 
296 
2973 
2979 


2410 IF S% <> "@" THEN 2370 
2420 GOSUB 2168 :REM sex RESULT 
2438 CLOSE #1 
2440 END 
2450 « 
2460 REM 228 INTERNE DATAFILE #99 
2470 REM DATA @ : REM AANTAL SPRITES 
2480 : 
2490 REM @à SPRITE @G1 aa 
Z500 REM 229 INTERNE DATAFILE 2 
2518 DATA "Ik kam marden niets $$" 
2528 DATA * miin maeder is ziek. "s1 
2538 DATA "$$ ik gisteren thuis Kwams” 
25408 DATA * ben ik naar hed Gegaan."s2 
255A DATA "Oma feliciteerde haar kleinzaan” 
2560 DATA *" $$ aaf hem een cadeau.”:3 
2570 DATA "$& je steeds vervelend doet," 
2580 DATA * ga ie niet uit,"s4 
2590 DATA "Je kijkt $% ie er miets" 
2460A DATA " van begriipt."s5 
2618 DATA "Hii is miet zieks" 
262 DATA *" $$% hier."…»6 
2630 DATA "Maeder Gin3 kaken: $$" 
Z64A DATA " vader stafzuigde."s7 
2650 DATA "De kinderen lieren za langzaams”" 
Z668 DATA " $$% ze te laat kwamen. "sG 
Z67A DATA "$$ Hii er9 zin hest deeds" 
2488 DATA * bleef hij tach zitten, "s9 
269A DATA "Piet antdekte apeens: $$ " 
2708 DATA "ziijn fiets zo langzaam Ging."s10 
2718 DATA "$% de zee kaud wass Ging" 
2720 DATA * de Graer tach zwemmen. "s 11 
2730 DATA <STOP:: £STOPE: 9999 
Voorbeeld 
KAK VOEGWOORDEN KRK 
aanta} de antwoorden . Ti 


Welk voegwoord moet er worden ingevuld 


ik gisteren thuis kwam, 


terwijl 
hoewe 
toen 


et eoa et 


er le Tie Min Fie Peene Sien Mec Tr iin en Ten ie Min Me Me Ten Sn NI Ho die Pin en TeBe ee 
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4.11 Onregelmatige werkwoorden 


Op het scherm verschijnt een vervoeging van een werkwoord op een witte ach- 
tergrond. Hierna volgt de vraag, afhankelijk van de aard der vervoeging, om 
het werkwoord, de verleden tijd of het voltooid deelwoord op te geven. Er is 
slechts een beperkte tijd om het antwoord te geven. Is het antwoord niet bin- 
nen de gestelde tijd gegeven dan wordt het fout gerekend en verschijnt het 
goede antwoord op het scherm. 

In het programma is een fouttabel opgenomen. Bij het samenstellen van een 
nieuwe vraag is er 75% kans dat een foutief beantwoorde vraag opnieuw 
wordt gesteld. In de interne datafile kunt u zien hoe de onregelmatige werk- 
woorden in een DATA-regel worden opgenomen. Voor het gemak zijn de drie 
bij elkaar behorende tijden op één DATA-regel gezet. Te beginnen bij het werk- 
woord, daarna de verleden tijd en tenslotte het voltooid deelwoord. 

In totaal kunnen honderd onregelmatige werkwoorden worden opgenomen. 
Het is natuurlijk ook mogelijk om vervoegingen van zwakke en sterke werk- 
woorden op te nemen. 

Het programma maakt geen onderscheid tussen hoofdletters en kleine letters 
bij de invoer. U moet er wel voor zorgen dat de woorden in de interne datafile 
met kleine letters worden ingevoerd. Doet u dit niet dan ontstaan er proble- 
men. 

Mocht blijken dat de bedenktijd te lang of te kort is dan kan deze worden aange- 
past door de waarde van variabele T2 te wijzigen. Deze variabele kunt u vinden 
in de module ‘Initialiseren’. De bedenktijd is per letter opgegeven. Dit betekent 
dat hoe langer het woord is dat moet worden ingetoetst, hoe langer de bedenk- 
tijd is. 

Alhoewel de MSX-computers niet zijn uitgerust met ‘reversed video’ wordt dit 
wel gebruikt in dit programma. De module ‘Reversed karakters’ bouwt in de 
karaktergenerator van de MSX in scherm 0 deze karakters op. Het gehele alfa- 
bet in grote en kleine karakters inclusief de leestekens worden in reversed vi- 
deo omgezet. De reversed karakters worden 132 plaatsen t.o.v. de normale ka- 
rakters opgeschoven. Het is best eens aardig om het programma stil te zetten 
nadat de module ‘Reversed karakters’ gedraaid heeft. Hierna laat u alle karak- 
ters van 30 t/m 255 op het beeldscherm verschijnen. U kunt dan de gewijzigde 
karakterset zien. U doet dit door in de direct mode het volgende in te tikken: 


FOR I = 3 TO 255 : PRINT CHR$(I);" "; : NEXT I 

Programma 

10 REM #*#* ONREGELMATIGE WW xxx / 228 
22 CLEAR 5000 / 576 
38 DIM A$(108:3),C(3),B(10: 3) f 1296 
48 KEY OFF / 492 
5@ GOTO 2020 / 559 
a : / 118 
70 REM #** INITIALISEREN #* / 346 
88 COLOR 15s4s4 £ SCREEN @ / 1311 
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NQ LOCATE 2:10 


100 
118 
120 
130 
140 
158 
163 
170 
180 
190 
Zaa 
218 
220 
238 
z40 
250 
240 
270 
280 
290 
300 
312 
320 
330 
344 
350 
36 
370 
380 
39 
400 
410 
40 
4:30 
440 
454 
4460 
47 
4830 
490 
500 
510 
520 
530 
540 
550 
564 
570 
580 
590 
600 
&1@ 
620 
630 


PRINT "Eventies Geduld '* 
LOCATE 2112 

PRINT "[F1J = Stappen" 

GOSUB 660 REM Het REVERSED 


GOSUB 510 :REM «xx INT DATA 
A=ASC("A") 7 B=ASC("a") : E$="" 
FOR I = @Q TO Z5 ; 

ES = E& + CHRE(T+A) + CHRÉ(I+B) 
NEXT I 

ES = E& + CHRÉ(A)+CHRE(1 3) 

5% = CHR$(164)+STRINGE(ZOs ",") 


Al$ = "V15L9S511M55ABE" 
AZ$ = "V1S5L9S8M3IGFE" 


M$ = "T145V1SLISIIMSSFGAHAAGGFR" 
M$ = M$ + "+FGAHA+GGFRG" 


C$(1) = "Welk werkwaard" 

CH(E) = "Welke verleden tiid" 
C$(3) = "Welk valtaaid deelwaard" 
P1$ = STRING$(30A: CHRE(1 23) ) 


PZ$ = STRING$(30:CHR$(124)) 

H$ = STRING$( 38: CHR$ (552) ) 

WEN Aaf 

DEF USRI=&H156 REM kerbrd leeg 
DEF USRZ=&HID REM Geluid leea 


DEF FNA(A) = INT(RND(I)#A+1) 

A = RND(-TIME) 

GD = 1 REM Geluid aan 
2 = 1.5 REM bedenktd/wrd 
T4 = 5 REM wachttiid 
G= AQ : T= A :REM Gaed/tataal 


RT = @ :REM rezultaat 
TIME = @ REM klak = @ 

TS = 1004 REM zreeltiid 
TS = TS « 50 

P= @ REM varige vraag 
0 = @ ‘REM aant) fFautttl 
KEV te *7* 

GOSUR 600 REM Hek KOP 

RETURN 

REM xs INTERNE DATAFILE #% 
RESTORE 2130 : N = 108 

FOR I = 1 TO 100 

READ AB(Is1)sAB(IsZ)sAB(Is 3) 

IF A$(Is1) £> "XSTOP:" THEN 560 
N= I= 1: I= 108 

NEXT I 

RETURN 

REM #xx KOP wer 

CLS £ PRINT 

PRINT "%& OnreGelmatige werk" s 
PRINT "waarden #*” 

RETURN 


Ben dit Mi keke iis ic: Mia Mie: Mon Tis Ilie Bi: Midi ee en Mie Meente Ke en A Ne MT Md 


en the Wii Mn Min B Wi ie Pie Me Bi Mi Miri kn Mike. Men Man 


640 
650 
6460 
670 
680 
690 
704 
710 
728 
730 
740 
750 
760 
770 
780 
790 
804 
812 
820 
830 
840 
850 
36a 
870 
8ag 
890 
9,00 
910 

0 
930 
940 
950 
,6a 
970 
980 
90 


REM #ex REVERSED KARAKTERS #4 
ST = BASE(2) : FF = 132#8 

FOR I = 32 TO 422 

FOR J = @ TO 7 

GR = ST+I#84J : GE = VPEEK(GR) 
G1 = 255-GE : VPOKE GR+FFsG1 
NEXT J 

NEXT 1 

A = 255 : B = @ 

FOR TI = @ TO 7 

VPOKE ST+123#8+1I:R 

VPOKE ST+124%8+1Is A 

IF 1=3 THEN SWAP AR 

NEXT I 

RETURN 


REM #&* OPGAVE Ham 

X=FNA(N) 2 Y=aFNA(5) & Z=FNA(3) 
IF Y=Z OR X=P THEN 824 

IF @=8 OR RND(1)>.75 THEN 880 
E = FNA(@) 

X=B(Er1) 8 Y=B(EN2) :£ Z=B(Es 3) 
REM ##* OUTPUT SAMENSTELLEN #%# 


G$ = AS(XsY) REM antwaard 
R$ = A$(Xs7) REM vraag 

C& = C$(Y) ‘REM vraaa 

P = X REM anthaudern 
a E “ n RAE" u 8 D% == "u 

L = LEN(BS) : Li = LEN(G$) 
FOR IT = 1 TOL 


F = ASC(MID$S(B&s Is 10) +137 
D$ = D$ + CHR$É(F) 

NEXT I 

RETURN 


1000 REM #xx SCHERM OPROUWEN 


1910 LOCATE 417 £ PRINT "Aantal ap" 5 


1020 PRINT "gaven ts 


1030 LOCATE 453 : PRINT "Goede ant“; 


1440 PRINT "waarden 4"5 
1854 FOR I = 1 TO 12 

1060 LOCATE @2:9+1 : PRINT H$ 
1470 NEXT I 

108A LOCATE 2:10 

10998 PRINT C&+" haart" 

1104 LOCATE 6:11 

1110 PRINT LEFT$(P1$sL) 

1128 LOCATE 2s12 

1138 PRINT "bai “+D$4" 7" 
1148 LOCATE 4:13 

1158 PRINT LEFT$(PA%sL) 

116A LOCATE 2:15 

1174 PRINT "Het antwaard is 4" 
1188 RETURN 
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NEEN NE TE NEE IG EE NE WEE WE EDE BR GNEM KE WS WN EM A SE ar Si ME AIEN Al Nel Sale 


1190 
17200 
1210 
1220 
1230 
1240 
1254 
12608 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1460 
1370 
1380 
1390 
1424 
1410 
14270 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
17108 
1720 
1730 


REM ze INVOER wax 


W=B : @$="" z DUMMY = USR1 (0) 


T5 = TIME+LI#T2#50 €: L = Q 
SIS=LEFT$(S$s 15-L) 

IF TS — TIME < @ THEN 1450 
LOCATE 20:15 : PRINT G%+51% 


AS=INKEYS : IF A$="" THEN A$="®" 


IF A$ = "2?! THEN 1450 

H = INSTR(ESsA$) 

IF H <> 53 THEN 1320 

IF L = @ THEN 1320 

Lai 5 G$S=LEFT$(Q$s LL) 

IF H=@ OR H>52 THEN A$="" 
O$=OEt+AE 7 L=LEN(GS) 

IF L215 THEN L=8 5 O$="" 
T3 = T5-TIME 

IF H£>54 AND T3:4 THEN 1239 
A$="" : IF L = @ THEN 1440 
REM && GROOT —à KLEIN «+» 
FOR IT = 1 TOL 

H = INSTR(ESsMIDE(@%s Ts 1)) 
IF H MOD 2 <> @ THEN He=H+1 
ASZASHMIDE(ES, Hs 1) 

NEXT I 

Wz 1 : 0% = A%$ 

RETURN 


REM xxx GOED / FOUT we 

IF W = @ THEN 1640 

H=B : R$="Fayt"  A$zAAE 
IF @% <> G$& THEN 1524 

H=t :£ R$="Gaed" & A$=A1$ 
LOCATE 20:12 : PRINT R$ 
G= Gt HEtTes=Te+tti 

IF GD=1 THEN PLAY A$ 
LOCATE 2352 £ PRINT T3" * 
LOCATE 2353 & PRINT G5" * 
IF H = 1 THEN 1612 

LOCATE 2s 17 

PRINT "Het antwaard maet"5 
PRINT * zin :"5G%$ 

T5 = T4#(2-H)#50A + TIME 
ON H+1i GOSUB 1670: 1730 

IF T5 — TIME > @ THEN 1630 
RETURN 


REM xe FOUT Her 
IF @+1 > 14 THEN 1700 
0 = 0 + 1 


B(Gsi)=X : B(@sH)=Y 8 BCG: A) =Z 


RETURN 


REM xxx GOED % 
IF @ = @ THEN 1864 


NE ENE EEG WN ii VE iP VG Ns Wir Nr Wi ME Ni 


ie Win tE 


han. Tin dan hin ein Tain in Pon Hin ie an Ae Hin Pin Se nn Mn kn Bn Mn Bin Pan ine Mn, En, Bn Hann Min 


1748 FOR IT = 1 TÔ Q 


1758 IF X = B(Is1) THEN 1794 
1760 IF Y = B(ls&) THEN 1790 
1778 IF Z <% B(Is3) THEN 1854 
1788 IF & = 1 THEN 1840 


1798 FOR J = 1 TO Q-1 

1830 B(Jsi)=BiJt1s 1) 

1810 B(JsZI=B(IJ+1: ZE) 

18270 B(Js3)EB(J4+1: 3) 

1830 NEXT J 

1840 1 = 0 : @ = Gel 

185A NEXT I 

1864 RETURN 

1874 : 

18380 REM sx RESULTAAT #3 

1894 IF T £ 1 OR G £ 1 THEN 1916 
1908 RT = INT(G#100/T+, 5) 

191% GOSUR AAB EREM Hex KOP 

1950 LOCATE 216 

193A PRINT "Aantal afrdaven :"sT 
1944 LOCATE 2,8 

1950 PRINT "Goede cpaaven 1"5G 
196A LOCATE 2:10 . 

197@ PRINT "Percentage Gaed:"sRT 
192A IF RT-7@ AND GD=1 THEN PLAY M$ 
199A RETURN 

ZARA : 

2010 REM xxx STUURMODULE HHR 
2020 GOSUE 80 REM wax INIT 
Z03A GOSUB 820 IREM HE OPGAVE 
2040 GOSUR 1018 :REM xx SCHERM 
2050 GOSUR 1710 :REM atx INVOER 
ZOER GOSUR 1470 :REM Hex GOED/FOUT 
2074 IF W S: @ THEN 2030 

ZORRA GOSUB 1890 REM #4 RESULTAAT 
2090 END 

2108 : 

z110 : 

Z170 REM odd INTERNE DATFILE 929 
2138 DATA krendensbrachtsgebracht 
Z144 DATA ziinswassdeweest 

2150 DATA wardenswerds3ewardern 
Z146A DATA GaarsGings0dedaan 

z170 DATA varensvaersdevaren 

Z188 DATA riidensreedsgeredern 
z190 DATA Kkamenskwamsdekamen 

2200 DATA blazernstbliessdebhlazen 
ZE210 DATA zienszadsGerien 

2EEO DATA verstaarsverstaond:s verstaan 
2530 DATA denkers dachts:Gedacht 
2240 DATA Gernieternsdenaats Genatern 
2250 DATA laternslietsdelaten 

2560 DATA hangdenshingsdehander 
2270 DATA zlarpenssliersdezlaren 
228A DATA Gevernstdafsdedevern 

2290 DATA <STOPEs SSTOP:s £STOPE 
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4.12 Verkleinwoorden 


Dit programma traint in het maken van verkleinwoorden. Op het beeldscherm 
verschijnt een woord. Het is de bedoeling dat de gebruiker het verkleinwoord 
geeft van dat bepaalde woord. In het RUN-voorbeeld kunt u zien hoe dat in 
praktijk werkt. 

In de interne datafile zijn al een aantal woorden opgenomen. Elk woord wordt 
gevolgd door een liggend streepje met daar achter de verkleining. Bijvoor- 
beeld boom-pje. Het programma zorgt er in de ‘Opgavemodule’ voor dat het 
streepje weer uit het woord verdwijnt. De interne datafile heeft een capaciteit 
van honderd woorden. Het programma onthoudt in totaal tien foutief beant- 
woorde woorden. Wordt een nieuwe opgave gemaakt dan is de kans 70% dat 
er een woord wordt getrokken uit de rij foutief beantwoorde opgaven. De fout- 
module plaatst woorden in de fouttabel (matrix B). In de module ‘Goed’ wordt 
nagegaan of een juist antwoord soms in de fouttabel voorkomt. Is dit laatste 
het geval dan wordt het woord uit de fouttabel verwijderd, althans de pointer 
wordt verwijderd. 

De meeste verkleiningen in het Nederlands zijn regelmatig, maar zoals met zo- 
veel grammaticaregels zijn er uitzonderingen, bijvoorbeeld koning — koninkje. 
Dit soort onregelmatigheden moet het programma ook aankunnen. Wanneer 
u de woorden koning en koninkje met elkaar vergelijkt blijkt, dat de letter ‘g’ uit 
het woord koning moet verdwijnen en de verkleining ‘kje’ er aan vast moet 
worden geplakt. Het verwijderen van een voorgaande letter wordt aangegeven 
door het teken ‘#’. Bij het woord koning ziet de DATA-regel er zodoende als 
volgt uit: koning-#kje. Het ‘#'-teken zorgt ervoor dat de g van koning wordt 
gewist. Aldus blijft het woord konin over, waaraan kje wordt vastgeplakt. Ge- 
zien het beperkte aantal woorden in de interne datafile doet u er verstandig aan 
deze file uit te breiden. De laatste DATA-regel heeft de vorm: regelnummer 
DATA <STOP>. 

Het programma maakt tijdens de invoer geen onderscheid tussen hoofdletters 
en kleine letters. Wat de DATA-regels betreft, moet u er voor zorgen dat de 
woorden met kleine letters worden ingevoerd. Mocht blijken dat u de bedenk- 
tijd te lang of te kort vindt dan kunt u dit aanpassen door de waarde van varia- 
bele T2 te wijzigen. U vindt deze in de module ‘Initialiseren’. De bedenktijd 
wordt per letter bepaald. Dit houdt in dat langere woorden een langere bedenk- 
tijd hebben dan korte woorden. 


Programma 

18 REM «xx VERKLEINWOORDEN «ex / 22e 
20 CLEAR 5000 / 576 
38 DIM A$(100),B(10) / 363 
40 KEY OFF / 497 
5@ GOTO 1970 / 572 
68 : / 118 
70 REM «xx INITIALISEREN #&%# / 346 
BB COLOR 155454 : SCREEN @ / 1311 
90 LOCATE 2,10 / 721 
108 PRINT "Eventies geduld '* / 2127 
118 LOCATE 2112 / 743 


120 
1308 
1408 
158 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
298 
303 
318 
320 
330 
340 
358 
360 
370 
380 
39 
400 
410 
420 
430 
44 A 
450 
460 
470 
480 
490 
500 
518 
520 
530 
540 
550 
560 
578 
580 
590 
400 
18 
&20 
630 
640 
650 
668 
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PRINT "(F1 = Starpen" 

GOSUR 420 :REM wate REVERSED 
GOSUB 480 REM «xx INT DATA 
A=ASC("A") 5 B=ASC("a") : E$="" 
FOR I= 8 TO 25 

E$ = E$& + CHRS(T+A) + CHR$(T+B) 
NEXT I 

E$ = E$ + CHR$(B)+CHR$(1 3) 

S$ = CHREÉ(1464)+STRING$(2Bs ". ") 


Al$ = "V1ISL9S11M5SABE" 

AZ$ = "V1IS5L9SEM39GFE" 

M$ = "T145V1SL9511M5SFGAHA+GGFR" 
M$ = M$ + "+FGA+A+GGFBG" 


Pi$ = STRING$( 38: CHR$(1 23) ) 

P2$ = STRING$(30s CHRE(1 24) ) 

H$ = STRING$(3B: CHR$( 32) ) 

MEV Air. 

DEF USRI=&H156 :REM kevkbrd leeg 
DEF USRZ=&HID REM geluid leeg 
DEF FNA(A) = INT(RND(1)%A+1) 


A = RND(-TIME) 

GD = 1 :REM Geluid aan 
F2 meds REM bedenktd/wrd 
T4 = 5 REM wachttiid 
G= 8 : T = @ :REM Gaed/tataal 


RT = A REM resultaat 
TIME = Q REM klak = 3 

TS = 10009 REM speeltiid 

TS = TS * 50 

P =O REM varige vraat 
0 = À REM aant] fPFautthl] 
KEY As "2" 

GOSUR 57 :REM xxx KOP 

RETURN 


REM xx INTERNE DATAFILE #« 
RESTORE 7880 : N = 100 

FOR IT = 1 TO 108 

READ A$(I) 

IF A$(I) <> "<STOP>" THEN 530 
N= 1-1: I= 128 

NEXT I 

RETURN 


REM sax KOP Her 

CLS £ PRINT 

PRINT "axe Verkleinwaarden #&&" 5 
RETURN 


REM x*x REVERSED KARAKTERS xx 
ST = BASE(2) : FF = 132#8 

FOR KE A2 TO Le 

FOR J = @ TO 7 

GR = ST+I#8+J : GE = VPEEK(GR) 
G1 = 255-GE : VPOKE GR+FFsG1 
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670 
680 
690 
700 
710 


NEXT J 

NEXT I 

A= 255 : B = @ 
FOR I = 8 TO 7 
VPOKE ST+123%8+1Is B 


728 VPOKE ST+124#8+1IsA 

730 IF I=3 THEN SWAP AsR 

740 NEXT I 

75@ RETURN 

7468 : 

770 REM **# OPGAVE #&x 

788 X=FNA(N) : IF X=P THEN 780 
79Q IF G=A OR RND(1)>.75 THEN B10 
8408 X = FNA(G) £ X=B(X) 

819 P = X REM anthauden 
828 REM #x OUTPUT SAMENSTELLEN #4 
838 DE=AS(X) £ L=LEN(D$) t£ G$="" 
848 FOR I = 1 TO L 

850 A$= MID$(D$s Is 1) 

83460 IF A$ <> "—" THEN 880 

870 B& = G$ : A$ = "" 

888 IF A& <> "#"” THEN 910 

890 K=LEN(G$) : GS=LEFT$S(G$s k- 1 ) 
908 As = "" 

910 G$ = GE+AF 

92A NEXT I 

938 BE = * "4BE4" * 8 DE = "" 

PAD L = LEN(RS) : Li = LEN(G&) 
9958 FOR IT = 1 TO L 

964 F = ASC(MIDE(REs [+ 1)) +137 

97 D& = D$ + CHRÉ(F) 

JRA NEXT I 

998 RETURN 

1000 : 


1818 REM xx SCHERM OPBOUWEN z 
1428 LOCATE 4:27 £ PRINT "Aantal aP"3 
1830 PRINT "gaven hei & 


1840 
1850 
1060 


LOCATE 453 £ PRINT "Guede ant"; 
PRINT "waarden "sG 
FOR I= 1 TO 10 


1879 LOCATE @:18+1 : PRINT H$ 
1084 NEXT 1 
1898 LOCATE 2:10 


1100 


PRINT "Maak het waard klein '* 


1118 LOCATE 6s11 
1128 PRINT LEFT$(P1$sL) 


1130 
11408 


LOCATE 6:12 & PRINT D$ 
LOCATE 6113 


11509 PRINT LEFT$(PZ$sL) 


1168 


LOCATE 2:15 


1178 PRINT "Het antwaard is £" 


1180 
1198 
1200 
1210 


RETURN 


REM xxx INVOER #xx 
=zA : Qf="" £ DUMMY = USR1 (A) 


MD ME Me HN PE Ko Wit WE Dis Ws Vg Wie Wi Mi Is Dis Mit Di Wer We We Vi MEM: ME AE: Mi Mi 
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1220 
1230 
1240 
1250 
17460 
1270 
1280 
1290 
1304 
1312 
1328 
1330 
1340 
1350 
13604 
1374 
1380 
139A 
1404 
1410 
1420 
1430 
1440 
1450 
1440 
1470 
1487 
1490 
1524 
1518 
1520 
1530 
1540 
1558 
1540 
1570 
1580 
1590 
1600 
1610 
16:70 
1630 
14544 
1654 
1640 
1670 
1680 
1690 
1700 
1718 
1720 
1730 
1744 
1754 
1762 
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T5 = TIME+LI#TZ#50 : L = @ 
SIS=LEFT$(S$s 15-L) 

IF TS — TIME < @ THEN 1450 
LOCATE 20,15 & PRINT @$+51$ 


AS=ZINKEYB « IF A$="" THEN A$="@" 


IF A$ = "7" THEN 1450 

H = INSTR(ESs:A$) 

IF H <> 53 THEN 1320 

IF L = @ THEN 1320 

L=l-l £ OS=LEFTS(@EsL) 

IF H=@ OR H>52 THEN A$="" 
GE=ZOE+AS 1: L=LEN(GOE) 

IF L2>15 THEN L=@ : O$="" 
T3 = T5-TIME. 

IF Hi254 AND T3:-@ THEN 1750 
Abz="" 8 TFE L = @ THEN 1440 
REM #* GROOT —> KLEIN #4 
FOR I = 1 TO LL 

H = INSTR(ESs:MIDS(GSs Is 1)» 
IF H MOD 2 <> @ THEN H=H+1 
AS=ABHMIDS(EE: Hs 1 ) 

NEXT I 

We tt : G$ = A$ 

RETURN 


REM «xx GOED / FOUT «xr 

IE W = B THEN 1640 

HA t R$="Faut" t AB=ARE 
IF @$ <2 G6 THEN 1570 

Het & Rb="Gaed" : AbzALS 
LOCATE 20:17 £ PRINT R$ 
G= G +tHEt Ts= Teti 

IF GD=1i THEN PLAY A&$ 
LOCATE 23,2 tt PRINT T5* * 
LOCATE 2353 : PRINT G5* * 
IF H = 1 THEN 1618 

LOCATE 2517 

PRINT "Het antwaard maet" 5 
PRINT * zijn "36% 

T5 = T4&(Z-H)#5A + TIME 
ON H+t GOSUR 14670: 1 720 

IF T5 — TIME > @ THEN 1638 
RETURN 


REM xxx FOUT Hex 

IF @+1 > 18 THEN 1690 
Q= Gti :B(@=X 
RETURN 


REM #&x GOED ##x 

IF @ = @ THEN 1810 

FOR I= 1 TO @ 

IF X <> BI) THEN 1800 
IF @ = 1 THEN 1790 

FOR J = I TO @=-1 


bedie Man Di Mik ts hin Mas Men in ha Tin Min Min Me oe it ie eN 
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1770 
1780 
17908 
1808 
1810 
1820 
1830 
1840 
1854 
1864 
1870 
1880 
1890 
1900 
1914 
1920 
1930 
1940 
1950 
1940 
1970 
1980 
1994 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
247 
2430 
2090 
Z100 
z110 
2120 
2130 
2140 
2150 
2160 
2178 
2180 
2190 
2200 


BIJ) EB(J41) REM wisser 
NEXT J 

Ì=0:0= Qi 

NEXT I 

RETURN 

REM #x*x RESULTAAT #xx 

IF T < 1 OR G < 1 THEN 1860 
RT = INT(G#10A/T+. 5) 

GOSUB 57A :REM xxx KOP 
LOCATE 216 

PRINT "Aantal arpAaven 4" 5T 
LOCATE 28 

PRINT "Goede opgaven *"5G 
LOCATE 2:10 

PRINT "Percentage Gaed:s"sRT 


IF RT>7@ AND GD=1 THEN PLAY Mé$ 


RETURN 


REM exe STUURMODULE sam 
GOSUR 80 :REM xxx INIT 
GOSUB 780 :REM He OPGAVE 
GOSUR 1070 :REM kek SCHERM 
GOSUR 1210 :REM %%% INVOER 


GOSUR 1470 :REM #*x GOED/FOUT 


IF W <> @ THEN 1980 


GOSUB 1840 :REM «xx RESULTAAT 


END 


REM 229 INTERNE DATFILE 29 
DATA man=netiesvrauw=tie 
DATA kaam=pieskleuter==t.ie 
DATA huis=-iesweg=Getie 
DATA kaek=ieskamer=tie 
DATA kussern=ties lampie 
DATA danden-#tiesvader-tie 
DATA apa-atieskip-petie 
DATA Kkaning-#kies vader=tie 
DATA aarp-—iespPinda-atje 
DATA snaePp—iesfilm-rie 
DATA badem=-piespin=netie 
DATA besprekind=#kie 

DATA <STOP 


hiii. Wie Mie Ms en is ia Vin Me in Min Mer in U Mn Ek 
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2365 
2175 
23860 
2197 
z294 
1378 
2106 
3027 
224 
24 A0 
„458 
3955 
EEA 
3885 
7541 
41,47 
359 
240 
ZAAR 
> 246 
„45 
23 
56E 
2540 
2598 
2933 
2619 
2255 
2128 
2118 
2346 
4248 
4541 
41 4 
4801 
4157 
4398 
4156 
4414 
4033 
4485 
4795 
3932 
z50 
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4.13 Meervoud 


In het programma ‘Meervoud’ moeten woorden uit het enkelvoud naar het 
meervoud worden gezet. Op het beeldscherm verschijnt een woord in het en- 
kelvoud en de gebruiker moet het woord in het meervoud geven. Hierbij kan 
het voorkomen dat de e met het trema nodig is. Deze letter met het trema is niet 
op het toetsenbord voorhanden, daarom kan worden ingetoetst door op func- 
tietoets F5 te drukken. Dit is ook duidelijk herkenbaar op het beeldscherm. U 
kunt dit zien in het RUN-voorbeeld. 

In de interne datafile zijn al een aantal uiteenlopende woorden opgenomen, 
die nogal verschillende meervouden hebben. De opbouw is als volgt: Eerst 
wordt het enkelvoud opgegeven. Direct gevolgd door een liggend streepje met 
de rest van de letters, zodat het meevoud ontstaat. Bijvoorbeeld kind-eren. Het 
liggend streepje wordt door het programma verwijderd. Deze methode zou 
problemen geven als er geen voorziening was getroffen. Want hoe zou het 
meervoud van boom moeten worden weergegeven. Als u in de interne datafile 
kijkt ziet u bij boom ‘-##men’ staan. In de opgavemodule wordt het woord 
boom genomen. Zodra het eerste #-teken gedetecteerd is, wordt het laatste 
karakter verwijderd. Er blijft dus over boo. Hierna verschijnt weer het #-teken. 
Ook nu weer wordt het laatste karakter verwijderd. Er blijft over bo. Aan dit 
restant wordt dan uiteindelijk ‘men’ toegevoegd en ontstaat de meervouds- 
vorm ‘bomen’. Een ander probleem wordt gevormd door de meervoudsvorm 
waarin de ‘e’ met trema moet worden geplaatst. Daar deze letter nogal moeilijk 
is in te toetsen geeft het dollarteken aan waar de ‘e’ met trema moet komen te 
staan. Het programma wijzigt het dollarteken in een ‘e’ met trema. Een voor- 
beeld is het woord Twee-$n. Dit moet worden tweeën. Op de laatste e een tre- 
ma. Zodra het programma het dollarteken tegenkomt, wordt het veranderd in 
een ‘e’ met trema. 

Het verdient aanbeveling de interne datafile uit te breiden. In totaal kunnen 
honderd woorden worden opgenomen. 


Programma 

10 REM #x MEERVOUD wax / pe =| 
20 CLEAR 5000 / 574 
38 DIM A$(100):B(10) / 843 
40 KEY OFF / 497 
58 GOTO 2260 / 545 
&A : / 118 
70 REM «ex INITIALISEREN #x% / 46 
BA COLOR 155454 £ SCREEN @ / 1,311 
MB LOCATE 2110 / 771 
108 PRINT "Eventies Geduld '* / 2127 
118 LOCATE 2:12 / 743 
128 PRINT "[F1]J = Stappen” / 1758 
138 GOSUB 8390 :REM #ex REVERSED / 675 
148 GOSUR 530 :REM #4 INT DATA / 67& 
158 AzASC("A") 5 B=ASC("a") £ E$="" / 1643 
168 FOR I = AQ TO 25 7 A30 
170 E$ = E$ + CHRE(I+A) + CHR$É(I+B) / 1566 


NEXT I 

E$ = E$ + CHR$(137)+CHRE(1 37) 
E$ = E$ + CHR$(39) +CHR$ (39) 

E$ = E$ + CHR$(8) +CHRE(1E) 

5% = CHRE(1454)+STRINGS( ZA: ",") 
Al$ = "V1ISLIS11MS55ABE" 

AZS = "VISL9SEMSIGFE " 


M$ = "T145V1ELOIE1IMSSFGAHAHGGFR" 


M$ M$ + "+FGAHAHGGERG" 
P1$ = STRING$(3@: CHR$ (123) ) 
P2$ = STRING$( 30: CHRÉ( 124) ) 
H$ = STRING$( 38: CHR$ ( 32) ) 


FOR I = 1 TO 10 

KEY Is"* 

NEXT I 

KEY 15"7" : KEY 5sCHR$(137) 

DEF USRI=&H154& :REM kevbrd leed 
DEF USRZ=&HID :REM geluid leed 
DEF FNA(A) = INT(RND(I1) #A+1) 

A = RND(-TIME) 


GD = 1 REM Geluid aan 
Tk = Les REM bedenktd/wrd 
T4 = 5 REM wachttiid 
G= @ : T = @ :REM Gaed/tataal 
RT = @ REM resultaat 
TIME = @ REM klak = @ 

TS = 1800 REM zpreeltijd 

TS = TS #* 50 

P = @ REM varide vraag 
0=@ REM aant) fauttbl 
KEV is "7 

GOSUR 420 EREM var KOP 

RE TURN 


REM #xx INTERNE DATAFILE ##« 
RESTORE 2374 : N= 100 

FOR 1 = 1 TO 120 

READ AST) 

IF A$(I) <> "<STOP>" THEN 588 
N= I= 1 : I= 100 

NEXT I 

RETURN 


REM ax KOP Hex 

CLS £ PRINT 

PRINT "xxx Meervaud xe” 5 
REM xx FUNKTIE-KEYS #&# 
AS=CHRE(I) 1 R1SZAS+CHRE(BE) 
RESZAELCHRE(ID) 6 BIEZAE+CHRE (BE) 
FOR I = 1 TO 4 
BIS=RIE+AE+CHRE (37) 
BES=BES+AE+CHRE(B7 ) 
B3IE=RIE+CHRE (37) 

NEXT I 

BIS=RIE+AE+CHRE (OG) 


ME Wi NG AE Ni WG EEN MME Mi Mij MME Mi Mi Ms 
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730 
740 
7540 
760 
770 
780 
790 
824 
810 
820 
aa 
840 
854 
240 
870 
888 
89 
900 
910 
20 
930 
9,40 
950 
60 
97 
980 
ga 
AAA 
1810 
1820 
1830 
1040 
1450 
1460 
1470 
1080 
1099 
1120 
1110 
1120 
1130 
1140 
1150 
1140 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1750 
1240 
1270 
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BZ$=RIS+AS+CHRE(G1) 
B3$=BIS+AS+CHRE (86) 
FOR I= 1 TO 5 

X = 1#7-7 


LOCATE Xs18 £ PRINT B1$ 
LOCATE X,19 £ PRINT B3$ 
LOCATE Xs2A £ PRINT B3% 
LOCATE Xs21 £ PRINT B2$ 


NEXT 1 

LOCATE 1:19 PRINT "Star" 
LOCATE 3s 20 BRENT MEIS 
LOCATE 29,19: PRINT CHR$(17) 
LOCATE 31s2@: PRINT "F5" 
RETURN 


REM «xx REVERSED KARAKTERS sx 
ST = BASE(2) : FF = 132#8 

FOR Eede 10 Lee 

FOR J = @ TO 7 

GR = ST+I#8+4+J £: GE = VPEEK(GR) 
G1 = 255-GE : VPOKE GR4FF «GI 
NEXT «f 


FOR 1 =:@ TO 7 
VPOKE ST+123#8+1IsR 
VPOKE ST+124#8+1s A 

JE T=3 THEN SWAP A«P 

NEXT 1 

RE TURN 

: 

REM #&%* OPGAVE Hex 

X=FNA(N) : IF X=P THEN 10450 


IF @=@ OR RND(1)>.75 THEN 1080 


X = FNA(GQ) £ X=B(X) 

P = X REM anthauden 
REM #%* OUTPUT SAMENSTELLEN x% 
D&=ZA$(X) & L=LEMN(DS) 8 G$="" 
FOR Le 1, TO 1 

A$= MIDS(DS$s Is 1) 

IF A$ <> "—" THEN 1150 

B& = G$ : A$ = "" 

IF A$ <> "#" THEN 1180 
K=LEN(G$) 7 G&E=LEFTS$(G$; KI) 
A$ = "" 


IF A$ <> "$" THEN 1700 
A$ = CHR$(137) 

G$ = G$+A$ 

NEXT I 


B$ = " "+R$4" * 1: D= ** 

L = LEN(B$) +: Li = LEN(GS) 
FOR 1 = 1 TOL 

F = ASC(MIDS(R$s Is 19) +132 
Dé = D$ + CHR$(F) 

NEXT 1 


NEEN ETEN NE ME ENE RE ENEMIES NE, EEE A BE AES EE SEE IE TE NE EE REE, NE SE EEE ESE 


1726 
1747 
1384 
1179 
ZA53 
24656 
ZA48 
2078 
1282 
2404 
2145 
2485 
2178 
1540 
za 
1156 
2029 
147a 
1542 
A4 
25 
EENS 
1347 
1475 
al 
„A53 
ZA: 
Lj B) 
14072 
1508 
1482 
1314 
2507 
2632 
2036 
1309 
1537 
Zr 
1763 
1931 
zild 
14698 
2124 
2669 
1400 
2148 
1845 
1619 
1647 
2047 
Z4z28 
1893 
2517 
19820 
1642 


12808 
1298 
1300 
1310 
1320 
1330 
1340 
13508 
135440 
137 
1580 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1478 
1482 
149 
1500 
1510 
1520 
1530 
1540 
1554 
1560 
1570 
1584 
159% 
1604 
1418 
1620 
1630 
1640 
1450 
1660 
1670 
1630 
1690 
1700 
1718 
1720 
1738 
1740 
1750 
1740 
1770 
1780 
1798 
1808 
1810 
1820 


RETURN 


REM xe SCHERM OPBOUWEN ##x 
LOCATE 452 :£ PRINT "Aantal aPp"5 
PRINT "gaven ces 

LOCATE 453 : PRINT "Gaede ant"s 
PRINT "waarden #"5G 

FOR I = 1 TO 7 

LOCATE @s6+1 £ PRINT H$ 

NEXT T 

LOCATE 256 

PRINT "Maak het meervaud van '* 
LOCATE 617 

PRINT LEFT$(P1$:L) 

LOCATE 648 : PRINT D% 

LOCATE 69 

PRINT LEFT$(PZ%EsL) 

LOCATE Zs11 

PRINT "Het antwaard is £* 
RETURN 


REM #xx INVOER Hee 

Wz : Of="" 8 DUMMY = USR1 (0) 
T5 = TIME+LI#TZ#5O £ LL = 
SIS=LEFT$(G%s 15 -L) 

IF TS — TIME < @ THEN 1740 
LOCATE Z@s11 £ PRINT G$+51% 


AS=INKEYS £ IF A$="" THEN A$="@" 


IF A$ = "2" THEN 1740 

H = INSTR(EËs;A&) 

IF H <> 57 THEN 1410 

IF L. = @ THEN 1610 

L=l-1 £ O$=LEFT$(GErL) 

IF H=@ OR H>56 THEN A$="" 
OE=OE+AE £ LeLEN(OE) 

IF L>45 THEN L=0 : Q$="" 
am Tael ME 

IF H<258 AND T3:>@ THEN 1520 
A$="" 2 IF L = @ THEN 1730 
REM #%* GROOT —> KLEIN %% 
FOR Tie LEO L 

H = INSTR(E$sMID$(G$s Is 1)) 
IF H MOD £ <> @ THEN HeH+t1 
AS=AELMIDS(E Ss Hs 1) 

NEXT 1 

W= 1 : Q$ = A$ 

RETURN 


REM zer GOED / FOUT wek 
IF W = @ THEN 1930 

H=B : R$="Faut" t ASZAZS 
IF G$ <> G& THEN 1810 
H=i : R$="Gaed" 8 A$z=Al% 
LOCATE 20:58 : PRINT R$ 
G=G t+HE:T= Teti 


VEEN Mi WEE Ne SEM EM Wir Ws, A WE VE Mi WE. WEEK CAE EWE Mg TMN NG MEMMEN NEEN MG MG ME AMG) MENE Mt Wi ENG iN 


1830 
1840 
1850 
1860 
1870 
1880 
189@ 
1900 
1910 
1920 
1930 
1940 
1950 
1940 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
z460 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2148 
2150 
2168 
2170 
2180 
2190 
2200 
22108 
2720 
2230 
2240 
2250 
2260 
2270 
2288 
2290 
2300 
23108 
2320 
2330 
2340 
2350 
2360 
2370 
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IF GD=1 THEN PLAY A& 
LOCATE 23,2 : PRINT Ts" * 
LOCATE 2353 £ PRINT G5® * 
IF H = 1 THEN 1909 

LOCATE 2:13 

PRINT "Het antwaard maet"5 
PRINT * zin 8*5G% 

T5 = T4&(2-H)#50 + TIME 
ON H+1 GOSUB 1960: 7014 

IF T5 — TIME > @ THEN 1920 
RE TURN 


REM xx FOUT #x 

IF G+1 > 14 THEN 198 
== 0 + 1 : B(@)=X 
RETURN 


REM sx GOED Hee 

IF Q = @ THEN 7100 

FOR I= 1 TO Q@ 

IF X <> B(I) THEN 2090 
IF @ = 1 THEN 2282 

FOR J = 1 TO @-1 
B(J)ER(J+1) EREM wissen 
NEXT J 

I=@:0= 0-1 

NEXT I 

RETURN 


REM #xx RESULTAAT #xx 

IF T < 1 OR G < 1 THEN 2158 
RT = INT(G#108/T+. 5) 

GOSUB 620 REM «xx KOP 
LOCATE 2:6 

PRINT "Aantal arpGaven £":T 
LOCATE 2:86 

PRINT "Goede ar4aven :"5G 
LOCATE 2:10 

PRINT "Percentage Ggaed:"sRT 


IF RT>7@ AND GD=1 THEN PLAY M$ 


RETURN 


REM sex STUURMODULE ser 
GOSUR 80 REM kx INIT 
GOSUR 1059 :REM %** OPGAVE 
GOSUB 1318 :REM #%&% SCHERM 
GOSUB 1508 :REM #x*x INVOER 


GOSUR 1768 :REM ##x GOED/FOUT 


IF W <> @ THEN 2270 


GOSUR 2130 :REM #*x RESULTAAT 


END 


REM 999 INTERNE DATFILE 999 
DATA kind=erens lammeren 


MRE ANG. DE NTO NA MTN NE INE: ING MENE NEMEN IG MEE EDEN NE HUWEN GEE, ELINE NIE NEE Ei MME VE ME Ni WE Vi IK UE Vi SEE Ki EE Ee 


2388 DATA kaam-#Hmenscafe’ = / 4168 
Z39Q DATA caure-’sscalarie#ten / 4517 
Z440 DATA kildiet=tern:skaas=-#itren / 4594 
z41@ DATA vaas-HHzenshuis-Hzen / 4465 
Z4Az@ DATA fiets-enskae-len / AE 
2438 DATA Ggarade-ssreetn 40 
Z44A DATA twee-S$nseen-Htitnern / Ala 
2450 DATA maan-#Hrnensfee- bn / 4170 
Z4460 DATA kabauter=ssplant=ern / AAA 
2478 DATA Kktla-ssklaver=ern / 4208 
Z4830 DATA <STOPR: / 1210 


Voorbeeld 


KK 


opgaven 
antwoorden 


meervoud 
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Appendix 


Met behulp van het hier beschreven programma kunnen de programma’s uit 
dit boek worden gecontroleerd op fouten. Het programma controleert op drie 
punten: 

— Elke BASIC-regel is niet langer dan vijftig posities. Zijn er meer dan vijf- 
tig posities dan verschijnt een foutmelding op het beeldscherm. 

— Elk programma begint met regelnummer 10. De regelnummers lopen 
met 10 op. Er verschijnt een foutmelding op het beeldscherm als de volgor- 
de niet meer klopt. 

— Wanneer u de listings uit dit boek bekijkt, ziet u rechts op elke BASIC-re- 
gel een schuine streep met daarachter een controlegetal. Dit controlegetal 
of checksum moet overeenstemmen met de getallen die dit programma be- 
rekent. Zijn de getallen gelijk aan elkaar dan is zeer waarschijnlijk de BASIC- 
regel correct ingetoetst. Stemmen de getallen niet overeen dan zit er een 
fout in de betreffende BASIC-regel. 

U moet bij het intikken van de programma’s de schuine streep met het con- 
trolegetal NIET overnemen. 


Bij het intikken van de programma’s mag u de spaties tussen de statements of 

variabelen weglaten. U mag de spaties die tussen aanhalingstekens voorko- 

men echter niet weghalen. De REM-statements aan het begin van BASIC-re- 
gels moeten worden ingetikt. De REM-statements achter een dubbelepunt mo- 
gen worden weggelaten. 

Het programma ‘Checksum’ maakt van een eenvoudig controlemechanisme 

gebruik. De ASCII-waarde van de karakters op een BASIC-regel worden bij el- 

kaar en bij het regelnummer opgeteld. Dit controlegetal wordt samen met het 
bijbehorende regelnummer op het scherm afgedrukt. Om met dit programma 
te kunnen werken, moet u de volgende procedure volgen: 

— U toetst eerst een compleet programma in. Hierna controleert u of het 
programma werkt. U verbetert de direct herkenbare typefouten. Kunt u ver- 
der geen fouten vinden, stel dan het programma veilig op cassette met het 
CSAVE-statement. 

— Schrijf het ingetoetste programma nogmaals op een andere cassette 
weg met het SAVE-statement gevolgd door een programmanaam, een kom- 
ma en een A. Als opdracht ziet dit er als volgt uit: 


SAVE "programmanaam", A 


Door het op deze manier wegschrijven van het programma wordt een 
ASCIl-bestand naar cassette geschreven. Dit duurt vrij lang! Het programma 
‘Checksum’ kan dit bestand teruglezen. 

— U laadt nu het programma ‘Checksum’ en spoelt de cassette die u net 
heeft aangemaakt naar het begin terug. 

— Het programma vraagt of de cassetterecorder aanstaat. Wanneer deze 
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vraag bevestigend is beantwoord, begint het programma het ASCII-bestand 
regel voor regel te lezen. Indien de lengte van de BASIC-regels korter is dan 
vijftig posities en de regelnummering met tien oploopt, verschijnt geen fout- 
melding. 

— Op het beeldscherm verschijnen de regelnummers van het als ASCII-be- 
stand weggeschreven programma met daarachter de checksums. Deze 
checksums of controlegetallen worden door het checksumprogramma be- 
paald. De controlegetallen uit het checksumprogramma moeten overeen- 
stemmen met de getallen rechts achter de schuine streep in de listing. ledere 
keer verschijnen vijftien regelnummers met bijbehorende controlegetallen 
op het scherm. 


Dit programma kunt u ook met een diskettestation gebruiken. 

U dient wel een aantal wijzigingen aan te brengen. 

Utoetst het programma ‘Checksum’ in met uitzondering van de regels 140, 150 
en 160. Regel 170 wijzigt u in: 


179 OPEN "LYST.TXT" FOR INPUT AS #1 


Na deze wijzigingen kunt u het programma gebruiken. Wanneer u een pro- 
gramma ingetoetst heeft en de meest voor de hand liggende typefouten heeft 
gecorrigeerd, stelt u het programma veilig op diskette met behulp van SAVE 
‘programmanaam’. Hierna schrijft u het programma nogmaals weg, maar nu 
als een ASCII-bestand met de opdracht ‘SAVE 'LYST.TXT',A'. Nadat het pro- 
gramma als LYST.TXT is weggeschreven, start u het checksumprogramma. 
Dit programma zal nu automatisch het bestand LYST.TXT oppakken. De verde- 
re werking van het checksumprogramma blijft ongewijzigd. 


Programma 

18 REM #%% CHECKSUM Har / 224 
ZA CLEAR 5000 / 576 
3A KEY OFF / 487 
40 GOTO 1130 / 554 
50 : / 1 AA 
6D REM «xx INITIALISEREN 4% / 4 
7@ RG = @ REM regelteller / el Ár 
8A TL = @ REM afdruk redels / 349 
24 HS = STRINGS$(37sCHRE(45) ) / 1440 
1040 I$ = "regel HHRHHH checksum" / 2054 
110 IE = 1% + "HHRRHRHR" / 780 
120 F$ = *" / 455 
138 GOSUR 240 / 564 
140 LOCATE 2:20 / 222 
158 PRINT "Staat recarder ap Plavr” / 2735 
149 GOSUR 4AA á &1 
170 OPEN "CAS:" FOR INPUT AS#1 # 1424 
18A SCREEN @ / &7& 
19 COLOR 155454 / a67 
200 DEF USRI=&H156 :REM kevtrd leeg , 1033 
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218 
220 
230 
240 
250 
zen 
270 
284 
290 
300 
318 
320 
330 
340 
35 
340 
370 
380 
392 
4AA 
410 
420 
430 
440 
450 
460 
470 
AAA 
490 
5AA 
510 
520 
530 
544 
550 
544 
570 
580 
590 
A0 
&10 
&zA 
630 
64 
654 
660 
67 
680 
4690 
700 
718 
720 
730 
740 
754 
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RETURN 

REM #er KOP Hur 

CLS REM scherm wissen 
PRINT "#%% CHECKSUM za” 

PRINT F$ 

RETURN 


REM sx DOORGAAN wax 

LOCATE 2 22 

DUMMY = USR1 (0) 

PRINT "DaarGgaan [ Ja/Neel ? 
LOCATE 22:22 t A$ = INPUT$(1) 
PRINT A& £ 5 = INSTR("J.iNn"sA$) 
IF 5 = A THEN 300 

S = INT(S/2 + ,5) 

RE TURN 


REM xxx REGEL LEZEN sax 

FF = @ 

IF EOF(1)=-1 THEN EF=1 ELSE EF=A 
IF EF = 1 THEN 470 

LINE TNPUT#1sZ$ : Ll = LEN(75) 

IF L < 5A THEN 474 

PRINT * Regel is te lana.” 

PRINT Z& : FF = 1 

RE TURN 


REM #xex REGELNUMMEP «exe 
1T=@: FF = 1 


IF I > L THEN 580 

A$ = MID$(Z%s Ist) 

IF A$ <> CHR$É(3Z) THEN 510 

RB = VAL(LEFTS(Z$sI)) 2 RG=ERG+10 
IF RB = RG THEN FF=A ELSE FF=i 
IF FF= @ THEN 400 

PRINT "Regelnr moet" RGS" zin." 
PRINT Z% 

L= L=-T & Z&=RIGHT$(ZSsL) 

IF TL <> @ THEN 640 

Lt = LEN(Z$) 4 

F& == RIGHTS(ZBsL 1) 

RETURN 

REM xxx REMark #&x 

E& = MID$&(Z$sXs 3) : RM = B 

IF E$="REM" OR E$="rem" THEN 700 
CH = CH + 228 : RM = 1 

RETURN 


REM #*x SPATIES VERWIJDEREN #%% 
Q$ = "* 8 H=D 

FOR I = 1 TO L 

A$ = MID$(Z$sIs1) 


ENG ADG ij WEET, TER MEENT NE ENGE Mi WE WE PE VA NS Bas 


NSM PET NEN ME MD NE WE ME MIE NTM EN NE MOE NP“ ME WS WN Bei Vi WSE 


768 
770 
788 
790 
808 
810 
820 
830 
840 
850 
860 


IF A& <> CHR$(34) THEN 780 
IF H = @ THEN H=1i ELSE H=G 
IF A$& <> CHR$É(32) THEN 800 
IF H = @ THEN A$="" 

0% = 0% + A$ 

NEXT 1 

L = LEN(G$) £ Z& = @$ 
RETURN 


REM Hek SCAN Haux 


6/0 FOR KE == 1 TOL 


380 
890 
sao 
910 
92 
930 
940 
950 
960 
970 
980 
990 
na 
1a1@ 
1020 
1030 
1240 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 


A$ = MID$(2%s Is 1) 
IF A$ <> CHR$(58) THEN 944 
IF H = 1 THEN 940 


= I+1 : IF X+3 > L THEN 948 


GOSUB 678 sREM #ex REMark 
IF RM=1 THEN I=l £ CH=CH-286 
CH = CH + ASC(AS) 

NEXT [ 

CH = CH + RG 

RETURN 


REM Her AFDRUK Haer 


S= 1 

IF TL MOD 15 <> @ THEN 1480 
IF TL = @ THEN 12460 

LOCATE @,19 : PRINT H$ 
GOSUB 300 sREM #ex DOORGAAN 
IF 5 = 2 THEN 1100 

GOSUB 240 :REM xxx KOP 
LOCATE @s 3 

PRINT USING I$5RG5CH 

Te, BE FA EL 

RETURN 


REM ser STIJURMODULE Hear 
GOSUB 70 :REM kx INIT 
GOSUR 244 sREM #xx KOP 


GOSUEB 400 sREM xe REGEL LEZEN 


IF EF = @ THEN 11808 
PRINT "Einde file !'* : FF= 1 
ut BE 1 THEN 1280 


GOSUR 506 :REM #x** REGELNUMMER 


En EF 1 THEN 1280 

X= 1 

GOSUB 670 :REM #** REMark 
IF RM = 1 THEN 126@ 


GOSURB 734 :REM #*x* SPATIE VERW 


GOSUBR 848 :REM xxx SCAN 
GOSUR 1902 :REM xxx AFDRUK 
IF 5 = í THEN 1158 

CLOSER1 

END 


NEEN ENE WG WET WE Ni 


BE MG MENG NG Bf) MANEN ME MENEN EMG ij ETI SE De SE HEEE NET VENEN WT ENE Di MD WT Ei Vi 


2077 
2857 
2040 
1647 
1239 
1202 
1740 
131 
8,2 
1154 
114 
j Be PLL 
171 
2164 
1685 
2705 
1 4ht 
457 
li, 
154? 
1495 
145 
1028 
120% 
1193 
2313 
1934 
Z241 
Urd 
1384 
1594 
1653 
ZI 
156,3 
1580 
1148 
1396 
1617 
1674 
1687 
z456 
2541 
2079 
1723 
za 
1408 
1761 
2146 
1778 
1792 
1837 
2108 
1738 
1505 
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Bestelkaart diskette / cassette 


Ondergetekende: 
Naam: 


Adres: 


Postcode en woonplaats: 


bestelt hierbij *) de: a diskette ad. f 24,50 
0 cassette ad. f 19,50 
behorende bij Educatieve programma’s in MSX-BASIC 


U kunt deze diskette of cassette in uw bezit krijgen door een ingevulde en ondertekende 
girobetaalkaart of bankcheque tezamen met deze bestelkaart te zenden aan: 


Kluwer Technische Boeken B.V. 
t.a.v. afd. administratie 

Brink 25 

7411 BS Deventer 


Desgewenst kunt u het verschuldigde bedrag ook overmaken op gironummer 3243819 
t.n.v. Kluwer Technische boeken in Deventer onder vermelding van 

bestelnummer 1926 CAS voor de cassette, of: 

bestelnummer 1926 DIS voor de diskette 

*) aankruisen wat u wenst, 


